ParaMonte Fortran 2.0.0
Parallel Monte Carlo and Machine Learning Library
See the latest version documentation.
pm_fftnr::getFFTF Interface Reference

Generate and return the Forward Fourier Transform (a.k.a. Fourier Analysis) of a periodic sequence of type complex or real of arbitrary kind parameter. More...

Detailed Description

Generate and return the Forward Fourier Transform (a.k.a. Fourier Analysis) of a periodic sequence of type complex or real of arbitrary kind parameter.

See the documentation of pm_fftnr for more details.

Parameters
[in]data: The input contiguous vector of arbitrary size of,
  1. type complex of kind any supported by the processor (e.g., CK, CK32, CK64, or CK128),
  2. type real of kind any supported by the processor (e.g., RK, RK32, RK64, or RK128),
containing the periodic sequence whose FFT is to be computed.
Returns
fft : The output vector of size getExpNext(size(data), 2) of the same type and kind as the input data, containing the FFT result.


Possible calling interfaces

use pm_fftnr, only: getFFTF
type_of(data) :: fft(1 : getExpNext(size(data)))
fft(:) = getFFTF(data(:))
Generate and return the Forward Fourier Transform (a.k.a. Fourier Analysis) of a periodic sequence of...
Definition: pm_fftnr.F90:250
This module contains procedures and generic interfaces for computing the Discrete Fourier Transform o...
Definition: pm_fftnr.F90:184
Remarks
The procedures under discussion are impure.
Note
This functional generic interface is simply a more flexible but slower wrapper around the subroutine generic interface setFFTF.
As such, this functional interface can be significantly slower than the corresponding subroutine interface.
See also
getFFTF
getFFTR
getFFTI
setFFTF
setFFTR
setFFTI


Example usage

1program example
2
3 use pm_kind, only: SK, IK, LK
4 use pm_io, only: display_type
5 use pm_fftnr, only: getFFTF, getFFTI
6 use pm_distUnif, only: getUnifRand
7 use pm_mathCompare, only: isClose
8 use pm_err, only: setAsserted
9
10 implicit none
11
12 integer(IK) :: i
13 integer(IK) :: lenData
14 type(display_type) :: disp
15 disp = display_type(file = "main.out.F90")
16
17 do i = 1, 5
18 block
19 use pm_kind, only: TKC => CK32
20 real(TKC) :: reltol
21 complex(TKC), allocatable :: data(:), atad(:)
22 call disp%show("lenData = getUnifRand(5, 100)")
23 lenData = getUnifRand(5, 100)
24 call disp%show("lenData")
25 call disp%show( lenData )
26 call disp%show("data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)")
27 data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)
28 call disp%show("data")
29 call disp%show( data )
30 call disp%skip()
31 call disp%show("atad = getFFTI(getFFTF(data))")
32 atad = getFFTI(getFFTF(data))
33 call disp%show("atad")
34 call disp%show( atad )
35 call disp%show("reltol = sqrt(epsilon(1._TKC))")
36 reltol = sqrt(epsilon(1._TKC))
37 call disp%show("reltol")
38 call disp%show( reltol )
39 call disp%show("isClose(data, atad(1:size(data)), reltol = reltol)")
40 call disp%show( isClose(data, atad(1:size(data)), reltol = reltol) )
41 call disp%show("call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))")
42 call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
43 call disp%skip()
44 end block
45
46 block
47 use pm_kind, only: TKC => CK64
48 real(TKC) :: reltol
49 complex(TKC), allocatable :: data(:), atad(:)
50 call disp%show("lenData = getUnifRand(5, 100)")
51 lenData = getUnifRand(5, 100)
52 call disp%show("lenData")
53 call disp%show( lenData )
54 call disp%show("data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)")
55 data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)
56 call disp%show("data")
57 call disp%show( data )
58 call disp%skip()
59 call disp%show("atad = getFFTI(getFFTF(data))")
60 atad = getFFTI(getFFTF(data))
61 call disp%show("atad")
62 call disp%show( atad )
63 call disp%show("reltol = sqrt(epsilon(1._TKC))")
64 reltol = sqrt(epsilon(1._TKC))
65 call disp%show("reltol")
66 call disp%show( reltol )
67 call disp%show("isClose(data, atad(1:size(data)), reltol = reltol)")
68 call disp%show( isClose(data, atad(1:size(data)), reltol = reltol) )
69 call disp%show("call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))")
70 call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
71 call disp%skip()
72 end block
73
74 block
75 use pm_kind, only: TKC => CKH
76 real(TKC) :: reltol
77 complex(TKC), allocatable :: data(:), atad(:)
78 call disp%show("lenData = getUnifRand(5, 100)")
79 lenData = getUnifRand(5, 100)
80 call disp%show("lenData")
81 call disp%show( lenData )
82 call disp%show("data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)")
83 data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)
84 call disp%show("data")
85 call disp%show( data )
86 call disp%skip()
87 call disp%show("atad = getFFTI(getFFTF(data))")
88 atad = getFFTI(getFFTF(data))
89 call disp%show("atad")
90 call disp%show( atad )
91 call disp%show("reltol = sqrt(epsilon(1._TKC))")
92 reltol = sqrt(epsilon(1._TKC))
93 call disp%show("reltol")
94 call disp%show( reltol )
95 call disp%show("isClose(data, atad(1:size(data)), reltol = reltol)")
96 call disp%show( isClose(data, atad(1:size(data)), reltol = reltol) )
97 call disp%show("call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))")
98 call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
99 call disp%skip()
100 end block
101
102 block
103 use pm_kind, only: TKC => RK32
104 real(TKC) :: reltol
105 real(TKC), allocatable :: data(:), atad(:)
106 call disp%show("lenData = getUnifRand(5, 100)")
107 lenData = getUnifRand(5, 100)
108 call disp%show("lenData")
109 call disp%show( lenData )
110 call disp%show("data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)")
111 data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)
112 call disp%show("data")
113 call disp%show( data )
114 call disp%skip()
115 call disp%show("atad = getFFTI(getFFTF(data))")
116 atad = getFFTI(getFFTF(data))
117 call disp%show("atad")
118 call disp%show( atad )
119 call disp%show("reltol = sqrt(epsilon(1._TKC))")
120 reltol = sqrt(epsilon(1._TKC))
121 call disp%show("reltol")
122 call disp%show( reltol )
123 call disp%show("isClose(data, atad(1:size(data)), reltol = reltol)")
124 call disp%show( isClose(data, atad(1:size(data)), reltol = reltol) )
125 call disp%show("call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))")
126 call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
127 call disp%skip()
128 end block
129
130 block
131 use pm_kind, only: TKC => RK64
132 real(TKC) :: reltol
133 real(TKC), allocatable :: data(:), atad(:)
134 call disp%show("lenData = getUnifRand(5, 100)")
135 lenData = getUnifRand(5, 100)
136 call disp%show("lenData")
137 call disp%show( lenData )
138 call disp%show("data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)")
139 data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)
140 call disp%show("data")
141 call disp%show( data )
142 call disp%skip()
143 call disp%show("atad = getFFTI(getFFTF(data))")
144 atad = getFFTI(getFFTF(data))
145 call disp%show("atad")
146 call disp%show( atad )
147 call disp%show("reltol = sqrt(epsilon(1._TKC))")
148 reltol = sqrt(epsilon(1._TKC))
149 call disp%show("reltol")
150 call disp%show( reltol )
151 call disp%show("isClose(data, atad(1:size(data)), reltol = reltol)")
152 call disp%show( isClose(data, atad(1:size(data)), reltol = reltol) )
153 call disp%show("call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))")
154 call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
155 call disp%skip()
156 end block
157
158 block
159 use pm_kind, only: TKC => RKH
160 real(TKC) :: reltol
161 real(TKC), allocatable :: data(:), atad(:)
162 call disp%show("lenData = getUnifRand(5, 100)")
163 lenData = getUnifRand(5, 100)
164 call disp%show("lenData")
165 call disp%show( lenData )
166 call disp%show("data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)")
167 data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)
168 call disp%show("data")
169 call disp%show( data )
170 call disp%skip()
171 call disp%show("atad = getFFTI(getFFTF(data))")
172 atad = getFFTI(getFFTF(data))
173 call disp%show("atad")
174 call disp%show( atad )
175 call disp%show("reltol = sqrt(epsilon(1._TKC))")
176 reltol = sqrt(epsilon(1._TKC))
177 call disp%show("reltol")
178 call disp%show( reltol )
179 call disp%show("isClose(data, atad(1:size(data)), reltol = reltol)")
180 call disp%show( isClose(data, atad(1:size(data)), reltol = reltol) )
181 call disp%show("call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))")
182 call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
183 call disp%skip()
184 end block
185 end do
186
187end program example
Generate and return a scalar or a contiguous array of rank 1 of length s1 of randomly uniformly distr...
Verify the input assertion holds and if it does not, print the (optional) input message on stdout and...
Definition: pm_err.F90:735
Generate and return an object of type stop_type with the user-specified input attributes.
Definition: pm_err.F90:1617
Generate and return the Inverse (normalized by 2 / size(data)) Fourier Transform of a periodic sequen...
Definition: pm_fftnr.F90:428
This is a generic method of the derived type display_type with pass attribute.
Definition: pm_io.F90:11074
Generate and return .true. if the two input values are sufficiently close to each other within the sp...
This module contains classes and procedures for computing various statistical quantities related to t...
This module contains classes and procedures for reporting and handling errors.
Definition: pm_err.F90:52
This module contains classes and procedures for input/output (IO) or generic display operations on st...
Definition: pm_io.F90:252
type(display_type) disp
This is a scalar module variable an object of type display_type for general display.
Definition: pm_io.F90:10962
This module defines the relevant Fortran kind type-parameters frequently used in the ParaMonte librar...
Definition: pm_kind.F90:28
integer, parameter LK
The default logical kind in the ParaMonte library: kind(.true.) in Fortran, kind(....
Definition: pm_kind.F90:281
integer, parameter CKH
The scalar integer constant of intrinsic default kind, representing the highest-precision complex kin...
Definition: pm_kind.F90:477
integer, parameter RK32
The real kind for a 32-bits container.
Definition: pm_kind.F90:294
integer, parameter CK64
The complex kind for a 64-bits container.
Definition: pm_kind.F90:290
integer, parameter CK32
The complex kind for a 32-bits container.
Definition: pm_kind.F90:291
integer, parameter RK64
The real kind for a 64-bits container.
Definition: pm_kind.F90:293
integer, parameter IK
The default integer kind in the ParaMonte library: int32 in Fortran, c_int32_t in C-Fortran Interoper...
Definition: pm_kind.F90:280
integer, parameter SK
The default character kind in the ParaMonte library: kind("a") in Fortran, c_char in C-Fortran Intero...
Definition: pm_kind.F90:279
integer, parameter RKH
The scalar integer constant of intrinsic default kind, representing the highest-precision real kind a...
Definition: pm_kind.F90:462
This module contains the procedures and interfaces for evaluating the relative or absolute proximity ...
Generate and return an object of type display_type.
Definition: pm_io.F90:10228

Example Unix compile command via Intel ifort compiler
1#!/usr/bin/env sh
2rm main.exe
3ifort -fpp -standard-semantics -O3 -Wl,-rpath,../../../lib -I../../../inc main.F90 ../../../lib/libparamonte_fortran_*_intel* -o main.exe
4./main.exe

Example Windows Batch compile command via Intel ifort compiler
1del main.exe
2set PATH=..\..\..\lib;%PATH%
3ifort /fpp /standard-semantics /O3 /I:..\..\..\include main.F90 ..\..\..\lib\libparamonte_fortran_*_intel*.lib /exe:main.exe
4main.exe

Example Unix / MinGW compile command via GNU gfortran compiler
1#!/usr/bin/env sh
2rm main.exe
3gfortran -cpp -ffree-line-length-none -O3 -Wl,-rpath,../../../lib -I../../../inc main.F90 ../../../lib/libparamonte_fortran_*_gnu* -o main.exe
4./main.exe

Example output
1lenData = getUnifRand(5, 100)
2lenData
3+68
4data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)
5data
6(+1.16249943, +0.781549454), (+1.87044263, +0.840214312), (+1.28130603, +0.900067866), (+1.44498336, +0.241337657), (+1.22788906, +0.702922344), (+1.94309044, +0.452638865E-1), (+1.29787683, +0.774718285), (+1.08182836, +0.556070626), (+1.92504895, +0.582562149), (+1.33219290, +0.950973630), (+1.77990818, +0.919168472), (+1.20223248, +0.470908582), (+1.64130926, +0.283978343), (+1.31772399, +0.565771818), (+1.11382961, +0.412545621), (+1.37172425, +0.298998952), (+1.25263929, +0.472035170), (+1.85488224, +0.762473345E-1), (+1.72030973, +0.376559079), (+1.99510694, +0.971551895), (+1.88826013, +0.684971511), (+1.76623750, +0.958812654), (+1.83265102, +0.455479264), (+1.92341638, +0.555080950), (+1.26986861, +0.345681489), (+1.46235812, +0.231214345), (+1.23689091, +0.180819094), (+1.22945237, +0.549181104E-1), (+1.83475506, +0.382971168), (+1.13470936, +0.967915118), (+1.22934055, +0.507547438), (+1.36545706, +0.743459225), (+1.08447266, +0.961844862), (+1.25363493, +0.391996324), (+1.14398003, +0.236291289), (+1.92549348, +0.273404896), (+1.42103195, +0.464192152), (+1.54457831, +0.582486093), (+1.81143081, +0.671453714), (+1.61893749, +0.299943566), (+1.86010265, +0.476507246), (+1.69998646, +0.751767337), (+1.02516580, +0.787164569E-1), (+1.40400982, +0.374086082), (+1.71667433, +0.235520840), (+1.95224524, +0.310152888), (+1.38045430, +0.424022436), (+1.11279035, +0.586838484), (+1.74072838, +0.900860250), (+1.69103169, +0.591073215), (+1.89795840, +0.645691276), (+1.75328898, +0.690864503), (+1.54756367, +0.517345011), (+1.41159475, +0.396746337), (+1.41510022, +0.841745257), (+1.20209002, +0.359899223), (+1.34165847, +0.888848066), (+1.04756594, +0.166320562), (+1.16926455, +0.111684620), (+1.47548723, +0.311646402), (+1.16452122, +0.508140802), (+1.10433555, +0.159689367), (+1.08556902, +0.841239572), (+1.90019274, +0.589831173), (+1.82097077, +0.487802625E-1), (+1.23518777, +0.303516030), (+1.80302048, +0.792775810), (+1.45141101, +0.608507931)
7
8atad = getFFTI(getFFTF(data))
9atad
10(+1.16249931, +0.781549573), (+1.87044275, +0.840214372), (+1.28130579, +0.900067925), (+1.44498301, +0.241337508), (+1.22788906, +0.702922285), (+1.94309044, +0.452636629E-1), (+1.29787660, +0.774718225), (+1.08182812, +0.556070447), (+1.92504895, +0.582562327), (+1.33219290, +0.950973570), (+1.77990794, +0.919168532), (+1.20223248, +0.470908672), (+1.64130938, +0.283978343), (+1.31772411, +0.565771818), (+1.11382961, +0.412545681), (+1.37172425, +0.298998773), (+1.25263929, +0.472035289), (+1.85488224, +0.762474388E-1), (+1.72030950, +0.376559108), (+1.99510670, +0.971551657), (+1.88826001, +0.684971452), (+1.76623726, +0.958812416), (+1.83265090, +0.455479175), (+1.92341638, +0.555080771), (+1.26986861, +0.345681578), (+1.46235812, +0.231214315), (+1.23689091, +0.180819064), (+1.22945261, +0.549182370E-1), (+1.83475494, +0.382971376), (+1.13470924, +0.967915177), (+1.22934031, +0.507547498), (+1.36545706, +0.743459225), (+1.08447266, +0.961844802), (+1.25363493, +0.391996205), (+1.14398003, +0.236291170), (+1.92549348, +0.273404539), (+1.42103195, +0.464191973), (+1.54457819, +0.582485795), (+1.81143081, +0.671453297), (+1.61893761, +0.299943328), (+1.86010265, +0.476507127), (+1.69998634, +0.751767218), (+1.02516568, +0.787163377E-1), (+1.40400982, +0.374086022), (+1.71667433, +0.235520840), (+1.95224512, +0.310152948), (+1.38045430, +0.424022466), (+1.11279058, +0.586838484), (+1.74072814, +0.900860012), (+1.69103146, +0.591073036), (+1.89795828, +0.645690918), (+1.75328887, +0.690864265), (+1.54756355, +0.517344832), (+1.41159463, +0.396746248), (+1.41510034, +0.841745019), (+1.20209002, +0.359898984), (+1.34165812, +0.888847947), (+1.04756582, +0.166320354), (+1.16926455, +0.111684538), (+1.47548699, +0.311646461), (+1.16452098, +0.508140743), (+1.10433543, +0.159689456), (+1.08556890, +0.841239572), (+1.90019274, +0.589831233), (+1.82097065, +0.487801731E-1), (+1.23518765, +0.303515941), (+1.80302072, +0.792775512), (+1.45141125, +0.608507872), (+0.178813934E-6, +0.119209290E-6), (-0.596046448E-7, +0.163912773E-6), (+0.298023224E-6, +0.178813934E-6), (+0.298023224E-6, +0.208616257E-6), (-0.119209290E-6, -0.149011612E-6), (+0.00000000, -0.596046448E-7), (+0.596046448E-7, +0.596046448E-7), (+0.00000000, -0.596046448E-7), (-0.119209290E-6, -0.596046448E-7), (-0.119209290E-6, +0.298023224E-7), (+0.596046448E-7, +0.745058060E-7), (+0.00000000, +0.745058060E-7), (+0.00000000, -0.104308128E-6), (+0.596046448E-7, -0.745058060E-7), (+0.178813934E-6, +0.894069672E-7), (+0.178813934E-6, +0.119209290E-6), (+0.238418579E-6, +0.298023224E-7), (+0.178813934E-6, +0.596046448E-7), (+0.596046448E-7, +0.178813934E-6), (+0.596046448E-7, +0.894069672E-7), (-0.596046448E-7, -0.208616257E-6), (+0.119209290E-6, -0.178813934E-6), (+0.119209290E-6, +0.521540642E-7), (-0.596046448E-7, -0.521540642E-7), (+0.596046448E-7, -0.149011612E-6), (+0.00000000, -0.149011612E-6), (+0.119209290E-6, +0.298023224E-7), (+0.596046448E-7, -0.119209290E-6), (-0.178813934E-6, +0.894069672E-7), (-0.596046448E-7, +0.447034836E-7), (+0.178813934E-6, +0.290572643E-6), (+0.119209290E-6, +0.327825546E-6), (+0.596046448E-7, +0.253319740E-6), (+0.00000000, +0.149011612E-6), (+0.00000000, +0.417232513E-6), (+0.00000000, +0.193715096E-6), (+0.00000000, +0.745058060E-7), (+0.119209290E-6, +0.596046448E-7), (+0.00000000, +0.178813934E-6), (+0.596046448E-7, +0.447034836E-7), (+0.596046448E-7, -0.745058060E-8), (+0.119209290E-6, +0.149011612E-7), (+0.00000000, +0.149011612E-6), (-0.596046448E-7, -0.894069672E-7), (+0.238418579E-6, +0.298023224E-6), (+0.178813934E-6, +0.119209290E-6), (+0.178813934E-6, +0.268220901E-6), (+0.119209290E-6, +0.178813934E-6), (+0.298023224E-6, +0.119209290E-6), (+0.596046448E-7, +0.119209290E-6), (+0.00000000, +0.268220901E-6), (+0.596046448E-7, +0.253319740E-6), (+0.238418579E-6, -0.298023224E-7), (+0.357627869E-6, +0.00000000), (+0.596046448E-7, +0.670552254E-7), (+0.119209290E-6, -0.596046448E-7), (+0.178813934E-6, -0.596046448E-7), (+0.238418579E-6, -0.819563866E-7), (-0.178813934E-6, +0.149011612E-6), (+0.596046448E-7, +0.298023224E-7)
11reltol = sqrt(epsilon(1._TKC))
12reltol
13+0.345266977E-3
14isClose(data, atad(1:size(data)), reltol = reltol)
15T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
16call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
17
18lenData = getUnifRand(5, 100)
19lenData
20+13
21data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)
22data
23(+1.4260502228604701, +0.71310457377955749), (+1.5233371978397607, +0.49091663653291939), (+1.7594882598318433, +0.41812920841044854), (+1.2943932846423463, +0.93636811110183704), (+1.0574418313142053, +0.79264774356326539), (+1.6957530152611158, +0.84428231368090367), (+1.8613925053423701, +0.35783275211621945E-1), (+1.6254518892747996, +0.79267905227948232), (+1.3813549308331163, +0.17434304436321135), (+1.2212498870742596, +0.71186813534021354), (+1.7861284749550657, +0.72762938226593954), (+1.8343706070035499, +0.61731807382779613), (+1.2476270939241942, +0.19179484393422075)
24
25atad = getFFTI(getFFTF(data))
26atad
27(+1.4260502228604703, +0.71310457377955749), (+1.5233371978397607, +0.49091663653291956), (+1.7594882598318431, +0.41812920841044882), (+1.2943932846423458, +0.93636811110183715), (+1.0574418313142055, +0.79264774356326539), (+1.6957530152611155, +0.84428231368090334), (+1.8613925053423701, +0.35783275211621668E-1), (+1.6254518892747996, +0.79267905227948221), (+1.3813549308331166, +0.17434304436321135), (+1.2212498870742596, +0.71186813534021354), (+1.7861284749550654, +0.72762938226593898), (+1.8343706070035493, +0.61731807382779613), (+1.2476270939241945, +0.19179484393422086), (-0.22204460492503131E-15, +0.11102230246251565E-15), (+0.33306690738754696E-15, +0.38857805861880479E-15), (+0.11102230246251565E-15, +0.16653345369377348E-15)
28reltol = sqrt(epsilon(1._TKC))
29reltol
30+0.14901161193847656E-7
31isClose(data, atad(1:size(data)), reltol = reltol)
32T, T, T, T, T, T, T, T, T, T, T, T, T
33call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
34
35lenData = getUnifRand(5, 100)
36lenData
37+72
38data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)
39data
40(+1.21446746501647738313306834701526329, +0.521830092914921429045355835318655348), (+1.96657282936926588595646595744810804, +0.448964101493459264529859691879103910), (+1.89843412561859392415739861137916335, +0.967498496238130026789818644779311268), (+1.22464550924868420123278121646204052, +0.654472064785939006312935928296961397), (+1.59630379361681784482789898391892506, +0.884696391041140135221605101905769680), (+1.17424182674060890185524464099298417, +0.418617838992119330540990816664225662), (+1.53677019413800971660132666947982383, +0.165331070856738685126882918822889626), (+1.44654793171580748319569527183061159, +0.743987057837871672471459143740788392), (+1.08133299829424123105697069256618785, +0.892292154880767910096954067761091514), (+1.14302783662466141699665149049238731, +0.670015626022812780665502947044264604), (+1.83224125007190187570280927920515399, +0.811977212433129214384317534057849766), (+1.86237635089307922072062863079423429, +0.458805214658079988902228106909022458E-3), (+1.88638928536801893466091640270403486, +0.820555774673830994578746368932084981E-1), (+1.83994238838563435735351199630105232, +0.743403585801633818740346295218828901), (+1.66356986999997649276974371656011872, +0.600625065290170232810456619872997525), (+1.35256175331924273314137780524311745, +0.514881668599185177742628957708547903), (+1.61669924183350441178208622099852774, +0.152980235582930641276460760330994808), (+1.54130222637041231586605527029220172, +0.954327879492960060832681134453673026), (+1.48134135712777230973584661178583568, +0.249519830294106136942260902289588970E-1), (+1.03715993999243637021450252258091755, +0.332267368823014865545045502779409888), (+1.32479394808807223021866299662575606, +0.766505910821060259172665481867070061), (+1.09465485788557052874329754887379194, +0.203968095169779191652850647433173867), (+1.95454920292205571750969162906723205, +0.934954916242143487424885562172843834), (+1.73311170509459510026509521414493722, +0.859911380307525559215109377729107732E-1), (+1.27557071060200810195737678168786923, +0.568240473871661584948082408745786168), (+1.16698322029575206957745798793132642, +0.233137925839407743626105672520901733), (+1.06926040791838849000667660235448654, +0.153764648979865828745905647043639751), (+1.73304090800183984166554916493018255, +0.282595488866224824040574706718670201), (+1.78297113659027646288390910562059062, +0.894701089997349159647726984712481530), (+1.91747723506433546818143338639156471, +0.400263771870539758402291746401547516), (+1.44376828226496164195494650760632070, +0.643664407821593327917100558447488389), (+1.62290266295288725187114657226867107, +0.890824957928946473222281907139831313E-1), (+1.41564131963264896924096606040385880, +0.854006125773058911121761018315612717), (+1.12339391090750776387742439525582757, +0.919578184629427965176139267530446464), (+1.98151077488079032508736859557552140, +0.326544800124579687765560557832576096), (+1.04443579890659788472550460387603524, +0.620500864226145198706323071124228343E-1), (+1.46007967211244886205963554378524219, +0.168417302464895875049427733948059503), (+1.84157304935990156547685588055717904, +0.655932255856834002542880831682924325), (+1.90115020608863995841650470746615787, +0.176965527427364051488801226579679263E-1), (+1.54827215288633412735244141919194180, +0.258433194022531714937851989773681199), (+1.46197497451966024522052726279547149, +0.233212240114177251323227910187142559), (+1.20219890627097069161706292213987981, +0.686920851889273430680401981642749591E-1), (+1.76869888239917985898969984518898730, +0.658757474074176660434813215246045380E-1), (+1.75814439282274436012593968699915954, +0.433957464184291089913416114413901685), (+1.59014448965330699052716832574774441, +0.274091441597132312659907713825297365), (+1.30338181666944027216558996759879573, +0.704573598181234605295835959851792713), (+1.85429629385053805577784723053132922, +0.626451306940036597062448876185512222), (+1.28010083891431807795794852399163387, +0.374248543021703539162826293807457244), (+1.77505975124851678838354104741963771, +0.561269296927235422877123705412690600), (+1.35871624879517045011320824458305228, +0.549917210117324285743581106472182090E-1), (+1.47444875684130485978940245948220304, +0.641057279604982422846682624809553182), (+1.82655867899471591968684919484485694, +0.925381037613598773027425627983655791), (+1.91561124497172062921802000185902063, +0.229805962305096103658715397123209108), (+1.89892140312029212615781925702932520, +0.738015577860051697157759163811113310E-1), (+1.64014621614718324575910489881387267, +0.320920593871845060562879489003803850), (+1.90337967550845984589601470918624805, +0.632546839745551645275752062122370594), (+1.49020442116016381192620741751866906, +0.361341727249254953923019712650827539), (+1.79551443680845748492750963945149716, +0.962960127174629506925387242604920472), (+1.84617034508508181701245322626722391, +0.751817868136572702182971747008705661), (+1.88321568554571714424375500257539919, +0.991801011124162372980786321914160484E-1), (+1.02766006438134072850508169206147427, +0.984619560274460081476443192729560902), (+1.79905956865447725145408378797881771, +0.101561096386179204276847620735351782), (+1.62851354286452566507228748465659737, +0.153479264577774615238643686951932016), (+1.47386099720548894594050663184661900, +0.367517719842242910842641540033964010), (+1.99554001622258392257544550789566339, +0.551675825900592208865356173297824675), (+1.10451908943360391119272699151467918, +0.130386578784928005242897479724588568), (+1.91616028108667936346518764311645971, +0.261164558199703400167408494765256512), (+1.64066200887536249904743943324435348, +0.109688857040350922110195590147248528), (+1.62782694810854900884582123366887461, +0.187237398425939477741653733185395630), (+1.94200984862428797618668628218194820, +0.784019606414568353254035500238230633), (+1.76984343542179566751833062600238446, +0.729404135296843236244350972320508749), (+1.69280954662354144648385970819742751, +0.275498410072195454099409430085672418)
41
42atad = getFFTI(getFFTF(data))
43atad
44(+1.21446746501647738313306834701526329, +0.521830092914921429045355835318655348), (+1.96657282936926588595646595744810784, +0.448964101493459264529859691879103524), (+1.89843412561859392415739861137916335, +0.967498496238130026789818644779310883), (+1.22464550924868420123278121646204052, +0.654472064785939006312935928296961397), (+1.59630379361681784482789898391892526, +0.884696391041140135221605101905769199), (+1.17424182674060890185524464099298379, +0.418617838992119330540990816664225422), (+1.53677019413800971660132666947982383, +0.165331070856738685126882918822889434), (+1.44654793171580748319569527183061140, +0.743987057837871672471459143740788488), (+1.08133299829424123105697069256618823, +0.892292154880767910096954067761091803), (+1.14302783662466141699665149049238750, +0.670015626022812780665502947044264892), (+1.83224125007190187570280927920515437, +0.811977212433129214384317534057849670), (+1.86237635089307922072062863079423487, +0.458805214658079988902228106908841902E-3), (+1.88638928536801893466091640270403524, +0.820555774673830994578746368932086064E-1), (+1.83994238838563435735351199630105271, +0.743403585801633818740346295218829093), (+1.66356986999997649276974371656011930, +0.600625065290170232810456619872997429), (+1.35256175331924273314137780524311783, +0.514881668599185177742628957708547999), (+1.61669924183350441178208622099852774, +0.152980235582930641276460760330994784), (+1.54130222637041231586605527029220191, +0.954327879492960060832681134453672930), (+1.48134135712777230973584661178583587, +0.249519830294106136942260902289587526E-1), (+1.03715993999243637021450252258091774, +0.332267368823014865545045502779409792), (+1.32479394808807223021866299662575626, +0.766505910821060259172665481867069964), (+1.09465485788557052874329754887379194, +0.203968095169779191652850647433173722), (+1.95454920292205571750969162906723244, +0.934954916242143487424885562172843738), (+1.73311170509459510026509521414493722, +0.859911380307525559215109377729107010E-1), (+1.27557071060200810195737678168786942, +0.568240473871661584948082408745786360), (+1.16698322029575206957745798793132642, +0.233137925839407743626105672520901637), (+1.06926040791838849000667660235448654, +0.153764648979865828745905647043639654), (+1.73304090800183984166554916493018313, +0.282595488866224824040574706718670490), (+1.78297113659027646288390910562059062, +0.894701089997349159647726984712481819), (+1.91747723506433546818143338639156509, +0.400263771870539758402291746401547420), (+1.44376828226496164195494650760632109, +0.643664407821593327917100558447488774), (+1.62290266295288725187114657226867146, +0.890824957928946473222281907139830109E-1), (+1.41564131963264896924096606040385880, +0.854006125773058911121761018315612910), (+1.12339391090750776387742439525582757, +0.919578184629427965176139267530446656), (+1.98151077488079032508736859557552160, +0.326544800124579687765560557832576241), (+1.04443579890659788472550460387603524, +0.620500864226145198706323071124228945E-1), (+1.46007967211244886205963554378524257, +0.168417302464895875049427733948059455), (+1.84157304935990156547685588055717943, +0.655932255856834002542880831682924517), (+1.90115020608863995841650470746615806, +0.176965527427364051488801226579678781E-1), (+1.54827215288633412735244141919194199, +0.258433194022531714937851989773681296), (+1.46197497451966024522052726279547207, +0.233212240114177251323227910187142655), (+1.20219890627097069161706292213987981, +0.686920851889273430680401981642751517E-1), (+1.76869888239917985898969984518898769, +0.658757474074176660434813215246048028E-1), (+1.75814439282274436012593968699915992, +0.433957464184291089913416114413901926), (+1.59014448965330699052716832574774480, +0.274091441597132312659907713825297268), (+1.30338181666944027216558996759879593, +0.704573598181234605295835959851793002), (+1.85429629385053805577784723053132979, +0.626451306940036597062448876185512511), (+1.28010083891431807795794852399163387, +0.374248543021703539162826293807457437), (+1.77505975124851678838354104741963791, +0.561269296927235422877123705412690696), (+1.35871624879517045011320824458305248, +0.549917210117324285743581106472182571E-1), (+1.47444875684130485978940245948220362, +0.641057279604982422846682624809553471), (+1.82655867899471591968684919484485752, +0.925381037613598773027425627983656176), (+1.91561124497172062921802000185902102, +0.229805962305096103658715397123209035), (+1.89892140312029212615781925702932559, +0.738015577860051697157759163811112347E-1), (+1.64014621614718324575910489881387267, +0.320920593871845060562879489003803850), (+1.90337967550845984589601470918624882, +0.632546839745551645275752062122370594), (+1.49020442116016381192620741751866925, +0.361341727249254953923019712650827732), (+1.79551443680845748492750963945149755, +0.962960127174629506925387242604921242), (+1.84617034508508181701245322626722430, +0.751817868136572702182971747008706239), (+1.88321568554571714424375500257539957, +0.991801011124162372980786321914164335E-1), (+1.02766006438134072850508169206147446, +0.984619560274460081476443192729561095), (+1.79905956865447725145408378797881828, +0.101561096386179204276847620735351782), (+1.62851354286452566507228748465659756, +0.153479264577774615238643686951931847), (+1.47386099720548894594050663184661938, +0.367517719842242910842641540033964443), (+1.99554001622258392257544550789566339, +0.551675825900592208865356173297824771), (+1.10451908943360391119272699151467899, +0.130386578784928005242897479724588832), (+1.91616028108667936346518764311645990, +0.261164558199703400167408494765256945), (+1.64066200887536249904743943324435348, +0.109688857040350922110195590147248576), (+1.62782694810854900884582123366887481, +0.187237398425939477741653733185395630), (+1.94200984862428797618668628218194858, +0.784019606414568353254035500238231019), (+1.76984343542179566751833062600238446, +0.729404135296843236244350972320508845), (+1.69280954662354144648385970819742789, +0.275498410072195454099409430085672611), (-0.962964972193617926527988971292463659E-34, -0.240741243048404481631997242823115915E-33), (-0.577778983316170755916793382775478196E-33, +0.144444745829042688979198345693869549E-33), (-0.481482486096808963263994485646231830E-33, +0.00000000000000000000000000000000000), (-0.770371977754894341222391177033970927E-33, +0.108333559371782016734398759270402162E-33), (-0.192592994438723585305597794258492732E-33, -0.180555932286303361223997932117336936E-33), (-0.770371977754894341222391177033970927E-33, +0.385185988877447170611195588516985464E-33), (-0.577778983316170755916793382775478196E-33, -0.962964972193617926527988971292463659E-34), (-0.481482486096808963263994485646231830E-33, +0.192592994438723585305597794258492732E-33), (-0.962964972193617926527988971292463659E-34, -0.240741243048404481631997242823115915E-34), (-0.577778983316170755916793382775478196E-33, +0.962964972193617926527988971292463659E-34), (+0.00000000000000000000000000000000000, +0.481482486096808963263994485646231830E-34), (-0.288889491658085377958396691387739098E-33, +0.240741243048404481631997242823115915E-34), (+0.00000000000000000000000000000000000, +0.00000000000000000000000000000000000), (-0.385185988877447170611195588516985464E-33, +0.337037740267766274284796139952362281E-33), (-0.288889491658085377958396691387739098E-33, +0.00000000000000000000000000000000000), (-0.385185988877447170611195588516985464E-33, -0.722223729145213444895991728469347744E-34), (+0.00000000000000000000000000000000000, -0.240741243048404481631997242823115915E-33), (-0.674075480535532548569592279904724561E-33, -0.361111864572606722447995864234673872E-34), (-0.192592994438723585305597794258492732E-33, -0.156481807981462913060798207835025345E-33), (-0.577778983316170755916793382775478196E-33, -0.264815367353244929795196967105427506E-33), (-0.962964972193617926527988971292463659E-34, -0.240741243048404481631997242823115915E-33), (-0.481482486096808963263994485646231830E-33, -0.240741243048404481631997242823115915E-34), (-0.385185988877447170611195588516985464E-33, -0.288889491658085377958396691387739098E-33), (-0.288889491658085377958396691387739098E-33, +0.138426214752832576938398414623291651E-33), (-0.962964972193617926527988971292463659E-34, -0.144444745829042688979198345693869549E-33), (-0.577778983316170755916793382775478196E-33, -0.481482486096808963263994485646231830E-34), (-0.385185988877447170611195588516985464E-33, -0.240741243048404481631997242823115915E-33), (-0.288889491658085377958396691387739098E-33, -0.156481807981462913060798207835025345E-33), (+0.962964972193617926527988971292463659E-34, +0.144444745829042688979198345693869549E-33), (-0.481482486096808963263994485646231830E-33, -0.192592994438723585305597794258492732E-33), (-0.962964972193617926527988971292463659E-34, -0.481482486096808963263994485646231830E-34), (-0.577778983316170755916793382775478196E-33, -0.168518870133883137142398069976181140E-33), (-0.192592994438723585305597794258492732E-33, -0.481482486096808963263994485646231830E-34), (-0.481482486096808963263994485646231830E-33, -0.192592994438723585305597794258492732E-33), (-0.288889491658085377958396691387739098E-33, -0.312963615962925826121596415670050689E-33), (-0.385185988877447170611195588516985464E-33, -0.337037740267766274284796139952362281E-33), (-0.962964972193617926527988971292463659E-34, +0.00000000000000000000000000000000000), (-0.577778983316170755916793382775478196E-33, -0.144444745829042688979198345693869549E-33), (-0.674075480535532548569592279904724561E-33, -0.529630734706489859590393934210855013E-33), (-0.288889491658085377958396691387739098E-33, -0.216667118743564033468797518540804323E-33), (-0.192592994438723585305597794258492732E-33, -0.144444745829042688979198345693869549E-33), (-0.577778983316170755916793382775478196E-33, -0.144444745829042688979198345693869549E-33), (-0.192592994438723585305597794258492732E-33, -0.288889491658085377958396691387739098E-33), (-0.385185988877447170611195588516985464E-33, -0.240741243048404481631997242823115915E-33), (-0.481482486096808963263994485646231830E-33, +0.240741243048404481631997242823115915E-34), (-0.770371977754894341222391177033970927E-33, +0.00000000000000000000000000000000000), (-0.577778983316170755916793382775478196E-33, +0.240741243048404481631997242823115915E-34), (-0.674075480535532548569592279904724561E-33, +0.00000000000000000000000000000000000), (+0.00000000000000000000000000000000000, -0.120370621524202240815998621411557957E-33), (-0.674075480535532548569592279904724561E-33, -0.481482486096808963263994485646231830E-33), (-0.481482486096808963263994485646231830E-33, -0.481482486096808963263994485646231830E-33), (-0.385185988877447170611195588516985464E-33, -0.577778983316170755916793382775478196E-33), (-0.192592994438723585305597794258492732E-33, -0.192592994438723585305597794258492732E-33), (-0.770371977754894341222391177033970927E-33, -0.192592994438723585305597794258492732E-33), (-0.385185988877447170611195588516985464E-33, -0.962964972193617926527988971292463659E-34), (-0.385185988877447170611195588516985464E-33, -0.433334237487128066937595037081608647E-33)
45reltol = sqrt(epsilon(1._TKC))
46reltol
47+0.138777878078144567552953958511352539E-16
48isClose(data, atad(1:size(data)), reltol = reltol)
49T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
50call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
51
52lenData = getUnifRand(5, 100)
53lenData
54+48
55data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)
56data
57+1.17392194, +1.65649462, +1.61483049, +1.66248345, +1.37645698, +1.30804920, +1.40863276, +1.04277349, +1.93336189, +1.32138371, +1.61000884, +1.25074148, +1.49809980, +1.10788870, +1.28800094, +1.66712499, +1.20925903, +1.74704242, +1.33663177, +1.04682803, +1.42332625, +1.07862794, +1.97641003, +1.98958278, +1.83093131, +1.87758625, +1.43414688, +1.69611287, +1.83134031, +1.99919033, +1.45559227, +1.64061999, +1.70223987, +1.19326138, +1.90461826, +1.05921030, +1.69135237, +1.61621642, +1.00145602, +1.76161075, +1.30581927, +1.41728866, +1.67644048, +1.95390117, +1.49304390, +1.08258879, +1.19422412, +1.43035877
58
59atad = getFFTI(getFFTF(data))
60atad
61+1.17392206, +1.65649450, +1.61483049, +1.66248333, +1.37645710, +1.30804920, +1.40863276, +1.04277349, +1.93336201, +1.32138348, +1.61000907, +1.25074160, +1.49809992, +1.10788846, +1.28800082, +1.66712475, +1.20925927, +1.74704242, +1.33663177, +1.04682803, +1.42332649, +1.07862794, +1.97641015, +1.98958266, +1.83093131, +1.87758613, +1.43414700, +1.69611311, +1.83134031, +1.99919033, +1.45559216, +1.64061987, +1.70223975, +1.19326127, +1.90461826, +1.05921018, +1.69135249, +1.61621618, +1.00145602, +1.76161075, +1.30581927, +1.41728854, +1.67644060, +1.95390117, +1.49304402, +1.08258843, +1.19422412, +1.43035865, +0.596046448E-7, +0.119209290E-6, -0.596046448E-7, +0.596046448E-7, +0.178813934E-6, -0.238418579E-6, +0.596046448E-7, -0.119209290E-6, +0.119209290E-6, +0.00000000, +0.119209290E-6, +0.178813934E-6, +0.238418579E-6, -0.178813934E-6, +0.00000000, +0.119209290E-6
62reltol = sqrt(epsilon(1._TKC))
63reltol
64+0.345266977E-3
65isClose(data, atad(1:size(data)), reltol = reltol)
66T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
67call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
68
69lenData = getUnifRand(5, 100)
70lenData
71+15
72data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)
73data
74+1.5169548972551938, +1.0715264362956649, +1.4031112133846082, +1.3222533423375897, +1.0344101519515223, +1.6509032763987175, +1.1768305300712876, +1.4533578361196469, +1.2807554954100375, +1.8121914849478022, +1.7217066045717846, +1.2725576161524510, +1.3560386360571928, +1.6452456772786248, +1.7687000896792120
75
76atad = getFFTI(getFFTF(data))
77atad
78+1.5169548972551941, +1.0715264362956651, +1.4031112133846082, +1.3222533423375897, +1.0344101519515225, +1.6509032763987175, +1.1768305300712878, +1.4533578361196469, +1.2807554954100377, +1.8121914849478025, +1.7217066045717844, +1.2725576161524512, +1.3560386360571932, +1.6452456772786250, +1.7687000896792118, +0.55511151231257827E-15
79reltol = sqrt(epsilon(1._TKC))
80reltol
81+0.14901161193847656E-7
82isClose(data, atad(1:size(data)), reltol = reltol)
83T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
84call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
85
86lenData = getUnifRand(5, 100)
87lenData
88+80
89data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)
90data
91+1.08458880056395099945119164753458229, +1.90842510685941228169858360415885490, +1.13002270936512712330925461605439558, +1.14880981668686557418380801322589910, +1.97858213390483525549333302873330883, +1.76513919430683337607275429628374899, +1.95024066973930968193070716560231890, +1.19001430392446057557916608775997604, +1.46412137360578591463558422621131456, +1.61821228617086460803105377972704437, +1.39062746294166599778868393850927851, +1.99338250965302310642920487750549113, +1.90552058390927466395925223079140343, +1.83460688288944347280172392575257013, +1.19577343976648315533577257328697775, +1.39889711659984931750719187004133172, +1.74326262318842559319849065485647145, +1.29630656503417177177950700745569797, +1.19648858471851938562487152134059518, +1.38005340064166997673116570106086817, +1.19190351607116821061957385917929973, +1.36262318364085133080952770489798574, +1.36404820868566183009937355173819281, +1.12653647861463708026288796941173175, +1.19511234709689190530788929735708411, +1.07325115831706683865364787350579248, +1.96717704087842970608064084784824720, +1.89524463860614787240037243649808057, +1.04564139755278728918061701169124214, +1.76863766720455089900532435119030646, +1.93176181482744912376456154201868431, +1.38217580190157526620777008615358496, +1.25350876551195542262031188182733766, +1.62998529236005918011301036415243874, +1.94462148800125390215156226885312644, +1.15362568412330772216765248474612306, +1.84988840759465447231370048997797786, +1.73075839722855181268338176825290352, +1.70883070527259465395139107132957968, +1.62324882161974610739472184887821411, +1.85081143039600423474350471356564350, +1.08925962783047258815073209845170209, +1.11696421024091679917502786680814612, +1.34201095070912944698011535240614141, +1.58236389412637492491865935857808167, +1.53798344263624683537859096962149822, +1.75128606089466734285026027804879160, +1.27960734630942154217176374149532021, +1.15411187411072238293154092968485114, +1.50678618727050367227171757691581038, +1.21348404511015786085340160009810538, +1.80521257326791294818252994753534664, +1.53097985625276736863987779558114727, +1.77687923199835301589613598337137462, +1.08252239552505908243966909945259347, +1.53398827056428565085809923779142264, +1.15520115174844350915269133458962863, +1.82299765973954254628381954402080638, +1.49264628342167932631714026850461907, +1.04101445015773560745734842170852934, +1.78018219294604910098186223364953172, +1.20083800492881790107077174497358237, +1.26197680315992928141613898101878977, +1.89884041519655140406790267859949265, +1.92938662690734902519775620850039623, +1.87955121722330617335590747826185519, +1.74831586557945719468065378519622556, +1.79997086503690435761003396391181130, +1.48503844421550348287752751511053424, +1.19584366425427036981082921677614567, +1.69102130869570857704678595246542354, +1.68524475208822715344807653329624340, +1.45561438402328291553146826875220483, +1.17120199142857142383548104449598662, +1.18573118952026117569340766518752326, +1.87996020309545369814311499801692530, +1.98438900763984814164936540011827082, +1.46308930479694525413895616776134514, +1.11615644081400661905708049739168288, +1.10239602851571993618191262955709005
92
93atad = getFFTI(getFFTF(data))
94atad
95+1.08458880056395099945119164753458248, +1.90842510685941228169858360415885490, +1.13002270936512712330925461605439558, +1.14880981668686557418380801322589910, +1.97858213390483525549333302873330903, +1.76513919430683337607275429628374899, +1.95024066973930968193070716560231870, +1.19001430392446057557916608775997604, +1.46412137360578591463558422621131533, +1.61821228617086460803105377972704437, +1.39062746294166599778868393850927890, +1.99338250965302310642920487750549171, +1.90552058390927466395925223079140401, +1.83460688288944347280172392575256994, +1.19577343976648315533577257328697795, +1.39889711659984931750719187004133153, +1.74326262318842559319849065485647145, +1.29630656503417177177950700745569778, +1.19648858471851938562487152134059498, +1.38005340064166997673116570106086817, +1.19190351607116821061957385917929993, +1.36262318364085133080952770489798593, +1.36404820868566183009937355173819223, +1.12653647861463708026288796941173175, +1.19511234709689190530788929735708431, +1.07325115831706683865364787350579248, +1.96717704087842970608064084784824720, +1.89524463860614787240037243649808134, +1.04564139755278728918061701169124194, +1.76863766720455089900532435119030685, +1.93176181482744912376456154201868412, +1.38217580190157526620777008615358516, +1.25350876551195542262031188182733766, +1.62998529236005918011301036415243816, +1.94462148800125390215156226885312644, +1.15362568412330772216765248474612286, +1.84988840759465447231370048997797825, +1.73075839722855181268338176825290391, +1.70883070527259465395139107132957988, +1.62324882161974610739472184887821411, +1.85081143039600423474350471356564389, +1.08925962783047258815073209845170170, +1.11696421024091679917502786680814612, +1.34201095070912944698011535240614160, +1.58236389412637492491865935857808167, +1.53798344263624683537859096962149822, +1.75128606089466734285026027804879179, +1.27960734630942154217176374149531982, +1.15411187411072238293154092968485095, +1.50678618727050367227171757691580961, +1.21348404511015786085340160009810538, +1.80521257326791294818252994753534625, +1.53097985625276736863987779558114765, +1.77687923199835301589613598337137423, +1.08252239552505908243966909945259309, +1.53398827056428565085809923779142168, +1.15520115174844350915269133458962843, +1.82299765973954254628381954402080638, +1.49264628342167932631714026850461927, +1.04101445015773560745734842170852877, +1.78018219294604910098186223364953191, +1.20083800492881790107077174497358199, +1.26197680315992928141613898101878977, +1.89884041519655140406790267859949246, +1.92938662690734902519775620850039604, +1.87955121722330617335590747826185461, +1.74831586557945719468065378519622556, +1.79997086503690435761003396391181130, +1.48503844421550348287752751511053404, +1.19584366425427036981082921677614509, +1.69102130869570857704678595246542335, +1.68524475208822715344807653329624321, +1.45561438402328291553146826875220464, +1.17120199142857142383548104449598662, +1.18573118952026117569340766518752288, +1.87996020309545369814311499801692607, +1.98438900763984814164936540011827101, +1.46308930479694525413895616776134533, +1.11615644081400661905708049739168288, +1.10239602851571993618191262955708986, +0.192592994438723585305597794258492732E-33, -0.577778983316170755916793382775478196E-33, -0.192592994438723585305597794258492732E-33, -0.481482486096808963263994485646231830E-33, +0.577778983316170755916793382775478196E-33, -0.577778983316170755916793382775478196E-33, +0.481482486096808963263994485646231830E-33, -0.192592994438723585305597794258492732E-33, -0.192592994438723585305597794258492732E-33, -0.385185988877447170611195588516985464E-33, -0.385185988877447170611195588516985464E-33, -0.385185988877447170611195588516985464E-33, -0.192592994438723585305597794258492732E-33, -0.288889491658085377958396691387739098E-33, -0.288889491658085377958396691387739098E-33, -0.192592994438723585305597794258492732E-33, +0.962964972193617926527988971292463659E-34, -0.192592994438723585305597794258492732E-33, -0.288889491658085377958396691387739098E-33, +0.00000000000000000000000000000000000, +0.962964972193617926527988971292463659E-34, +0.00000000000000000000000000000000000, +0.288889491658085377958396691387739098E-33, +0.962964972193617926527988971292463659E-34, +0.00000000000000000000000000000000000, -0.288889491658085377958396691387739098E-33, -0.288889491658085377958396691387739098E-33, -0.192592994438723585305597794258492732E-33, -0.962964972193617926527988971292463659E-34, -0.288889491658085377958396691387739098E-33, -0.385185988877447170611195588516985464E-33, +0.00000000000000000000000000000000000, +0.962964972193617926527988971292463659E-34, +0.962964972193617926527988971292463659E-34, +0.00000000000000000000000000000000000, -0.962964972193617926527988971292463659E-34, -0.288889491658085377958396691387739098E-33, -0.192592994438723585305597794258492732E-33, -0.288889491658085377958396691387739098E-33, +0.481482486096808963263994485646231830E-33, +0.385185988877447170611195588516985464E-33, -0.962964972193617926527988971292463659E-34, +0.192592994438723585305597794258492732E-33, -0.385185988877447170611195588516985464E-33, -0.385185988877447170611195588516985464E-33, -0.674075480535532548569592279904724561E-33, -0.288889491658085377958396691387739098E-33, -0.962964972193617926527988971292463659E-34
96reltol = sqrt(epsilon(1._TKC))
97reltol
98+0.138777878078144567552953958511352539E-16
99isClose(data, atad(1:size(data)), reltol = reltol)
100T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
101call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
102
103lenData = getUnifRand(5, 100)
104lenData
105+40
106data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)
107data
108(+1.21637964, +0.729207695), (+1.91577053, +0.593732595E-1), (+1.39720178, +0.676531494), (+1.70848370, +0.536312461), (+1.34863794, +0.228041708), (+1.22919250, +0.708801627), (+1.75119996, +0.670499206E-1), (+1.84735322, +0.878378749E-1), (+1.64284348, +0.309403718), (+1.49902225, +0.904778361), (+1.80603111, +0.131720960), (+1.02009797, +0.969156027E-1), (+1.18211246, +0.485629380), (+1.51406360, +0.567974508), (+1.95235920, +0.903137743), (+1.97846699, +0.821449637), (+1.82377183, +0.843679905E-2), (+1.12504649, +0.952228546), (+1.75317407, +0.919384062), (+1.62682199, +0.716840625E-1), (+1.44859624, +0.508637667), (+1.85989928, +0.836898088), (+1.38564801, +0.413267195), (+1.12220907, +0.804088533), (+1.53709745, +0.136617780), (+1.68178248, +0.182527125), (+1.58226061, +0.954265893), (+1.76604772, +0.492802262), (+1.33339906, +0.833509982), (+1.45543051, +0.220366597), (+1.95349169, +0.210136652), (+1.88680148, +0.380472779), (+1.81450379, +0.686222017), (+1.09005201, +0.544996560), (+1.83901143, +0.670691609), (+1.17020774, +0.592947125), (+1.45176852, +0.874417424E-1), (+1.93992281, +0.643992782), (+1.25028694, +0.799618483), (+1.18175483, +0.938517272)
109
110atad = getFFTI(getFFTF(data))
111atad
112(+1.21637964, +0.729207754), (+1.91577041, +0.593733937E-1), (+1.39720178, +0.676531434), (+1.70848334, +0.536312521), (+1.34863794, +0.228041679), (+1.22919250, +0.708801627), (+1.75119984, +0.670498312E-1), (+1.84735310, +0.878377259E-1), (+1.64284348, +0.309403777), (+1.49902225, +0.904778361), (+1.80603099, +0.131721109), (+1.02009773, +0.969157815E-1), (+1.18211246, +0.485629469), (+1.51406336, +0.567974627), (+1.95235908, +0.903137803), (+1.97846699, +0.821449637), (+1.82377195, +0.843676738E-2), (+1.12504637, +0.952228427), (+1.75317430, +0.919383883), (+1.62682176, +0.716838241E-1), (+1.44859624, +0.508637667), (+1.85989916, +0.836898088), (+1.38564801, +0.413267165), (+1.12220907, +0.804088414), (+1.53709745, +0.136617839), (+1.68178225, +0.182527199), (+1.58226061, +0.954265833), (+1.76604736, +0.492802143), (+1.33339882, +0.833510101), (+1.45543027, +0.220366523), (+1.95349145, +0.210136831), (+1.88680112, +0.380472571), (+1.81450367, +0.686222076), (+1.09005201, +0.544996560), (+1.83901167, +0.670691490), (+1.17020786, +0.592946827), (+1.45176852, +0.874418393E-1), (+1.93992281, +0.643992782), (+1.25028694, +0.799618602), (+1.18175495, +0.938517213), (+0.596046448E-7, -0.596046448E-7), (+0.298023224E-6, -0.149011612E-6), (+0.417232513E-6, +0.298023224E-7), (+0.357627869E-6, -0.298023224E-7), (+0.00000000, -0.894069672E-7), (+0.238418579E-6, -0.119209290E-6), (+0.357627869E-6, +0.00000000), (+0.596046448E-7, +0.00000000), (+0.00000000, +0.908039510E-7), (+0.119209290E-6, +0.149011612E-6), (+0.178813934E-6, +0.238418579E-6), (+0.178813934E-6, +0.298023224E-6), (-0.596046448E-7, -0.298023224E-7), (+0.119209290E-6, +0.298023224E-7), (+0.596046448E-7, +0.298023224E-7), (+0.596046448E-7, +0.596046448E-7), (+0.178813934E-6, -0.745058060E-8), (+0.417232513E-6, +0.193715096E-6), (+0.178813934E-6, +0.149011612E-6), (+0.238418579E-6, +0.327825546E-6), (+0.298023224E-6, -0.119209290E-6), (+0.238418579E-6, +0.745058060E-7), (+0.238418579E-6, -0.596046448E-7), (+0.119209290E-6, +0.208616257E-6)
113reltol = sqrt(epsilon(1._TKC))
114reltol
115+0.345266977E-3
116isClose(data, atad(1:size(data)), reltol = reltol)
117T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
118call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
119
120lenData = getUnifRand(5, 100)
121lenData
122+60
123data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)
124data
125(+1.9148927495853187, +0.13831765586676770), (+1.6636276270017598, +0.55005983813471249), (+1.5683982211725360, +0.28296643541291289), (+1.3018695675647092, +0.44505059668271396), (+1.8707058364091020, +0.19975929695256034), (+1.2801838683487781, +0.26353075158084394), (+1.2107361889766284, +0.43773513815130971), (+1.4972071826148408, +0.13818106710943578), (+1.0903525933586993, +0.87832273640172920), (+1.3837796166195027, +0.36356330894509381), (+1.6681933004582949, +0.15695119683246184), (+1.8390772138306737, +0.34382143228771866E-1), (+1.3970418715296320, +0.37214884824964678), (+1.7181209776387230, +0.16844649294831615), (+1.4447974784405939, +0.54809884215209936), (+1.2060621453368729, +0.32291553189224176), (+1.8524126014327889, +0.11264965267554772), (+1.3159158797628274, +0.36677027340661106), (+1.2362637093238800, +0.56090560345621032), (+1.8541528227396540, +0.88076367980128534), (+1.9179850476091174, +0.82051179682422715), (+1.9576624472458832, +0.34065217803989611), (+1.9744098779823807, +0.21462588537345550), (+1.4314411719359903, +0.34845356604504418), (+1.7458072982686579, +0.27945080629924379), (+1.6519521657160512, +0.43191957171664941), (+1.7178423089576369, +0.35302793846964986), (+1.9783358362044927, +0.90635999247567423), (+1.2343938979555653, +0.89193263069613637), (+1.1340924326581825, +0.12372724298993398), (+1.6709977956206674, +0.61031880817082884E-1), (+1.7376593022212017, +0.26878408196141956), (+1.5719877345009148, +0.16570023882170370), (+1.7397628981427564, +0.35598035855179921), (+1.0546383342879575, +0.25698870688171382), (+1.3572556247916943, +0.90972990724548075), (+1.8509818370304367, +0.61537600794726088), (+1.6654805469337046, +0.16752748852363575), (+1.5990007020576573, +0.50604271681208934), (+1.8191838232125002, +0.70432323094071436E-1), (+1.6502598190153881, +0.45841410694757989), (+1.2284534369431537, +0.78560818912168517), (+1.6253492272824364, +0.41613800602372764), (+1.1586548496295783, +0.15376070483635929), (+1.9101778454505678, +0.69405641181499722), (+1.2349452176527997, +0.12123538728525929), (+1.3423611617947073, +0.48100310904438648), (+1.5816003888367893, +0.86724412543346596), (+1.1966706785715397, +0.16255907707087902), (+1.9182489798539666, +0.15394508473984558), (+1.5414207507853854, +0.35487821800807295), (+1.8760938337611219, +0.86214317629566706), (+1.3814113306395295, +0.42824237683134514), (+1.5001368453540964, +0.70892804143902000), (+1.8747242243225148, +0.30280947629568566), (+1.0182359656444855, +0.43395442860625777), (+1.7279055129526899, +0.69887186786310251), (+1.9794169039125782, +0.96892927795808503), (+1.4982314503029455, +0.56639185524263869), (+1.4013392380007881, +0.59553237287825345)
126
127atad = getFFTI(getFFTF(data))
128atad
129(+1.9148927495853185, +0.13831765586676772), (+1.6636276270017598, +0.55005983813471249), (+1.5683982211725358, +0.28296643541291311), (+1.3018695675647096, +0.44505059668271402), (+1.8707058364091023, +0.19975929695256023), (+1.2801838683487785, +0.26353075158084360), (+1.2107361889766279, +0.43773513815130966), (+1.4972071826148405, +0.13818106710943603), (+1.0903525933586993, +0.87832273640172931), (+1.3837796166195031, +0.36356330894509375), (+1.6681933004582949, +0.15695119683246211), (+1.8390772138306741, +0.34382143228772200E-1), (+1.3970418715296316, +0.37214884824964695), (+1.7181209776387232, +0.16844649294831632), (+1.4447974784405937, +0.54809884215209936), (+1.2060621453368729, +0.32291553189224187), (+1.8524126014327886, +0.11264965267554770), (+1.3159158797628276, +0.36677027340661106), (+1.2362637093238797, +0.56090560345621032), (+1.8541528227396540, +0.88076367980128556), (+1.9179850476091174, +0.82051179682422704), (+1.9576624472458837, +0.34065217803989611), (+1.9744098779823804, +0.21462588537345570), (+1.4314411719359901, +0.34845356604504424), (+1.7458072982686579, +0.27945080629924401), (+1.6519521657160514, +0.43191957171664974), (+1.7178423089576365, +0.35302793846964986), (+1.9783358362044923, +0.90635999247567400), (+1.2343938979555651, +0.89193263069613637), (+1.1340924326581832, +0.12372724298993353), (+1.6709977956206674, +0.61031880817082912E-1), (+1.7376593022212017, +0.26878408196141956), (+1.5719877345009146, +0.16570023882170379), (+1.7397628981427564, +0.35598035855179933), (+1.0546383342879573, +0.25698870688171382), (+1.3572556247916945, +0.90972990724548053), (+1.8509818370304367, +0.61537600794726088), (+1.6654805469337053, +0.16752748852363564), (+1.5990007020576571, +0.50604271681208934), (+1.8191838232125002, +0.70432323094071630E-1), (+1.6502598190153881, +0.45841410694758011), (+1.2284534369431537, +0.78560818912168506), (+1.6253492272824361, +0.41613800602372758), (+1.1586548496295785, +0.15376070483635929), (+1.9101778454505671, +0.69405641181499722), (+1.2349452176528000, +0.12123538728525912), (+1.3423611617947069, +0.48100310904438642), (+1.5816003888367889, +0.86724412543346574), (+1.1966706785715395, +0.16255907707087913), (+1.9182489798539668, +0.15394508473984558), (+1.5414207507853850, +0.35487821800807290), (+1.8760938337611217, +0.86214317629566695), (+1.3814113306395290, +0.42824237683134508), (+1.5001368453540966, +0.70892804143902000), (+1.8747242243225146, +0.30280947629568578), (+1.0182359656444853, +0.43395442860625794), (+1.7279055129526899, +0.69887186786310262), (+1.9794169039125784, +0.96892927795808514), (+1.4982314503029452, +0.56639185524263835), (+1.4013392380007881, +0.59553237287825311), (+0.0000000000000000, -0.55511151231257827E-16), (+0.66613381477509392E-15, -0.31918911957973251E-15), (+0.77715611723760958E-15, +0.52735593669694936E-15), (+0.77715611723760958E-15, +0.24980018054066022E-15)
130reltol = sqrt(epsilon(1._TKC))
131reltol
132+0.14901161193847656E-7
133isClose(data, atad(1:size(data)), reltol = reltol)
134T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
135call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
136
137lenData = getUnifRand(5, 100)
138lenData
139+9
140data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)
141data
142(+1.58708549426061772810802875110508418, +0.337630354794387733849363944792205299E-1), (+1.06253892153539464354522095543932274, +0.376729181920357895643840336771905968), (+1.87381702658131925291967214175850281, +0.336387252673294112947685169226002486), (+1.13021786304049762174983314640531601, +0.503731936122667724756085390037914867), (+1.48260008330711572310583285050962801, +0.835315119694685645176341070799839467), (+1.97786012185523839584899232230132356, +0.174354969575043766985764879668576130), (+1.43740519079405086509804002949982825, +0.213031410914844409565928859690777701), (+1.93283376492600815089185815054348327, +0.157830967021002643781226069782682864), (+1.01217508614165065264583160774527808, +0.202254569752365515992465691004131190)
143
144atad = getFFTI(getFFTF(data))
145atad
146(+1.58708549426061772810802875110508418, +0.337630354794387733849363944792205299E-1), (+1.06253892153539464354522095543932294, +0.376729181920357895643840336771905968), (+1.87381702658131925291967214175850281, +0.336387252673294112947685169226002438), (+1.13021786304049762174983314640531640, +0.503731936122667724756085390037914964), (+1.48260008330711572310583285050962801, +0.835315119694685645176341070799839563), (+1.97786012185523839584899232230132414, +0.174354969575043766985764879668576082), (+1.43740519079405086509804002949982845, +0.213031410914844409565928859690777652), (+1.93283376492600815089185815054348365, +0.157830967021002643781226069782682960), (+1.01217508614165065264583160774527808, +0.202254569752365515992465691004131190), (-0.192592994438723585305597794258492732E-33, +0.722223729145213444895991728469347744E-34), (+0.00000000000000000000000000000000000, +0.481482486096808963263994485646231830E-34), (-0.481482486096808963263994485646231830E-33, -0.192592994438723585305597794258492732E-33), (+0.00000000000000000000000000000000000, -0.962964972193617926527988971292463659E-34), (-0.385185988877447170611195588516985464E-33, +0.601853107621011204079993107057789787E-34), (-0.192592994438723585305597794258492732E-33, +0.361111864572606722447995864234673872E-34), (-0.385185988877447170611195588516985464E-33, +0.842594350669415685711990349880905702E-34)
147reltol = sqrt(epsilon(1._TKC))
148reltol
149+0.138777878078144567552953958511352539E-16
150isClose(data, atad(1:size(data)), reltol = reltol)
151T, T, T, T, T, T, T, T, T
152call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
153
154lenData = getUnifRand(5, 100)
155lenData
156+75
157data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)
158data
159+1.44094300, +1.98976779, +1.00132656, +1.74591374, +1.76078498, +1.54424810, +1.84530711, +1.48639989, +1.83159137, +1.85396409, +1.06693983, +1.51065159, +1.88018966, +1.01018822, +1.24555576, +1.89070582, +1.12460446, +1.38668358, +1.52338910, +1.53510916, +1.78170264, +1.69480371, +1.81493235, +1.55936670, +1.74525142, +1.95473671, +1.21979785, +1.99291635, +1.05253422, +1.13097656, +1.48061633, +1.23388684, +1.72803020, +1.29827738, +1.10591388, +1.26029253, +1.95184219, +1.42130530, +1.99150896, +1.77364039, +1.95624804, +1.46239221, +1.51721597, +1.51186037, +1.04787397, +1.14953375, +1.39935374, +1.51421738, +1.96776402, +1.21447968, +1.62590909, +1.55100822, +1.69847941, +1.37950301, +1.39790809, +1.28222084, +1.24112523, +1.58808076, +1.36473525, +1.19104648, +1.00895882, +1.74958956, +1.27135134, +1.31969762, +1.63836539, +1.11425734, +1.12770307, +1.86613524, +1.24340749, +1.97446489, +1.06212091, +1.01012301, +1.62614012, +1.77534962, +1.10892344
160
161atad = getFFTI(getFFTF(data))
162atad
163+1.44094312, +1.98976779, +1.00132656, +1.74591386, +1.76078463, +1.54424798, +1.84530687, +1.48639965, +1.83159137, +1.85396385, +1.06693983, +1.51065159, +1.88018966, +1.01018810, +1.24555576, +1.89070559, +1.12460458, +1.38668370, +1.52338886, +1.53510904, +1.78170228, +1.69480348, +1.81493211, +1.55936646, +1.74525118, +1.95473671, +1.21979785, +1.99291635, +1.05253410, +1.13097680, +1.48061633, +1.23388684, +1.72803044, +1.29827738, +1.10591400, +1.26029253, +1.95184207, +1.42130494, +1.99150920, +1.77364016, +1.95624828, +1.46239209, +1.51721585, +1.51186037, +1.04787397, +1.14953375, +1.39935398, +1.51421726, +1.96776390, +1.21447968, +1.62590885, +1.55100799, +1.69847918, +1.37950253, +1.39790797, +1.28222060, +1.24112511, +1.58808076, +1.36473513, +1.19104624, +1.00895882, +1.74958944, +1.27135122, +1.31969750, +1.63836563, +1.11425757, +1.12770319, +1.86613524, +1.24340773, +1.97446477, +1.06212115, +1.01012325, +1.62613988, +1.77535009, +1.10892344, +0.119209290E-6, +0.238418579E-6, +0.178813934E-6, +0.119209290E-6, +0.298023224E-6, +0.119209290E-6, -0.596046448E-7, +0.298023224E-6, -0.596046448E-7, +0.178813934E-6, -0.596046448E-7, +0.596046448E-7, +0.298023224E-6, +0.119209290E-6, +0.596046448E-7, +0.178813934E-6, +0.596046448E-7, +0.298023224E-6, +0.00000000, +0.00000000, +0.119209290E-6, -0.596046448E-7, +0.119209290E-6, +0.00000000, +0.119209290E-6, +0.596046448E-7, +0.00000000, +0.00000000, +0.536441803E-6, -0.596046448E-7, -0.119209290E-6, +0.00000000, +0.178813934E-6, +0.596046448E-7, +0.178813934E-6, +0.596046448E-7, +0.238418579E-6, +0.178813934E-6, +0.178813934E-6, +0.178813934E-6, +0.238418579E-6, +0.119209290E-6, +0.178813934E-6, +0.119209290E-6, +0.417232513E-6, +0.357627869E-6, +0.00000000, +0.417232513E-6, +0.298023224E-6, +0.178813934E-6, +0.178813934E-6, -0.119209290E-6, +0.119209290E-6
164reltol = sqrt(epsilon(1._TKC))
165reltol
166+0.345266977E-3
167isClose(data, atad(1:size(data)), reltol = reltol)
168T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
169call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
170
171lenData = getUnifRand(5, 100)
172lenData
173+92
174data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)
175data
176+1.1381117332505184, +1.4388456752653020, +1.2468862446848386, +1.0326065514921283, +1.1627308854369782, +1.5381650347491340, +1.2724888063342439, +1.5184984531136512, +1.9312925741364300, +1.6365879258888976, +1.1525327527667386, +1.1418679334261967, +1.5562082011280911, +1.3644477190924809, +1.6507931517750967, +1.2937442733500282, +1.6645968512202463, +1.3629582670611871, +1.0592281960843635, +1.5689376633718832, +1.8670201600459211, +1.3620255521675813, +1.4115156411065770, +1.8627683252153227, +1.5957387134525378, +1.7868711571196423, +1.4894150985067269, +1.8309481474205098, +1.2019410609736165, +1.0220103829343508, +1.5054604509002196, +1.6685645880634796, +1.9902168342959163, +1.3657527585659548, +1.9954464700420202, +1.9771608998861061, +1.4741562423326773, +1.4905721543190293, +1.0971759781703976, +1.2333385361855229, +1.3765274498757267, +1.7517081764435893, +1.6271317870397235, +1.2089558157954214, +1.3041689952370987, +1.1881368752201933, +1.2447283639906295, +1.6268276822737777, +1.2780971448044700, +1.2577683521680276, +1.7946338646605486, +1.5397163860428009, +1.9313528418806098, +1.3789903186561594, +1.8542582223553814, +1.6161367212843558, +1.5158884294525645, +1.2188425139404633, +1.4859449568514864, +1.8872696982409720, +1.3869593622290735, +1.6648378069259122, +1.3792771574876062, +1.3418341581326048, +1.6238205128933085, +1.3058835712387089, +1.0092569358116767, +1.0657271068844865, +1.4454658038915433, +1.3597443101122737, +1.6063105601549035, +1.1764065103964394, +1.8460718134696690, +1.6640970363458862, +1.4755292530498370, +1.3166253797428833, +1.8668929049036147, +1.0666645290548444, +1.4445080870092033, +1.5739956107286655, +1.6106202632584339, +1.6606567604751761, +1.9781949849356271, +1.1647156073325799, +1.2567834439235117, +1.0707175282534287, +1.6359436648617902, +1.0949446812949275, +1.9269481918152023, +1.8539991191157406, +1.8414502695895367, +1.4658445797816153
177
178atad = getFFTI(getFFTF(data))
179atad
180+1.1381117332505182, +1.4388456752653020, +1.2468862446848390, +1.0326065514921288, +1.1627308854369780, +1.5381650347491347, +1.2724888063342437, +1.5184984531136518, +1.9312925741364300, +1.6365879258888982, +1.1525327527667386, +1.1418679334261970, +1.5562082011280909, +1.3644477190924813, +1.6507931517750964, +1.2937442733500284, +1.6645968512202456, +1.3629582670611873, +1.0592281960843635, +1.5689376633718841, +1.8670201600459202, +1.3620255521675815, +1.4115156411065766, +1.8627683252153231, +1.5957387134525369, +1.7868711571196425, +1.4894150985067265, +1.8309481474205103, +1.2019410609736161, +1.0220103829343512, +1.5054604509002194, +1.6685645880634796, +1.9902168342959161, +1.3657527585659544, +1.9954464700420207, +1.9771608998861061, +1.4741562423326773, +1.4905721543190296, +1.0971759781703976, +1.2333385361855229, +1.3765274498757267, +1.7517081764435893, +1.6271317870397239, +1.2089558157954219, +1.3041689952370992, +1.1881368752201933, +1.2447283639906299, +1.6268276822737782, +1.2780971448044700, +1.2577683521680276, +1.7946338646605491, +1.5397163860428016, +1.9313528418806098, +1.3789903186561592, +1.8542582223553816, +1.6161367212843556, +1.5158884294525645, +1.2188425139404635, +1.4859449568514866, +1.8872696982409720, +1.3869593622290737, +1.6648378069259113, +1.3792771574876062, +1.3418341581326043, +1.6238205128933083, +1.3058835712387089, +1.0092569358116772, +1.0657271068844865, +1.4454658038915438, +1.3597443101122739, +1.6063105601549037, +1.1764065103964396, +1.8460718134696688, +1.6640970363458865, +1.4755292530498365, +1.3166253797428833, +1.8668929049036151, +1.0666645290548447, +1.4445080870092035, +1.5739956107286657, +1.6106202632584334, +1.6606567604751756, +1.9781949849356271, +1.1647156073325799, +1.2567834439235122, +1.0707175282534283, +1.6359436648617909, +1.0949446812949271, +1.9269481918152018, +1.8539991191157401, +1.8414502695895365, +1.4658445797816149, +0.11102230246251565E-14, +0.22204460492503131E-15, +0.66613381477509392E-15, -0.22204460492503131E-15, -0.33306690738754696E-15, -0.22204460492503131E-15, +0.22204460492503131E-15, -0.11102230246251565E-15, +0.0000000000000000, +0.66613381477509392E-15, +0.77715611723760958E-15, +0.33306690738754696E-15, -0.11102230246251565E-15, -0.11102230246251565E-15, +0.11102230246251565E-15, +0.0000000000000000, +0.44408920985006262E-15, +0.33306690738754696E-15, +0.11102230246251565E-15, +0.22204460492503131E-15, +0.11102230246251565E-15, +0.22204460492503131E-15, +0.44408920985006262E-15, +0.55511151231257827E-15, +0.22204460492503131E-15, +0.77715611723760958E-15, +0.66613381477509392E-15, +0.11102230246251565E-14, +0.44408920985006262E-15, +0.33306690738754696E-15, +0.22204460492503131E-15, +0.11102230246251565E-15, +0.0000000000000000, +0.99920072216264089E-15, +0.11102230246251565E-15, +0.11102230246251565E-14
181reltol = sqrt(epsilon(1._TKC))
182reltol
183+0.14901161193847656E-7
184isClose(data, atad(1:size(data)), reltol = reltol)
185T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
186call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
187
188lenData = getUnifRand(5, 100)
189lenData
190+53
191data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)
192data
193+1.37908338697659703440985685977279036, +1.59440778276780912712985396952256399, +1.05253019974248154843386752939132446, +1.32630646641516196644824574112456287, +1.30878925802672879575679695095296016, +1.28330400339301678187831589990255636, +1.21141550809111937318754781054705976, +1.31456911375598631845146610173229009, +1.62712897777550559767139792859548325, +1.60104457288924921419340565932819452, +1.01186444998618439389205779380839531, +1.82222799796137585764601303955879533, +1.40121758934671142066749323378088682, +1.77822304995366065347994873872815241, +1.20882743087367691378305078809734524, +1.69239666400759315815633005273269235, +1.99978055736382201046095281944718659, +1.93949667724611274398559269074471629, +1.45030444511338327637302093463979477, +1.97268120867321327748718408276519726, +1.18053508723305448159121790664505955, +1.52618940865868164328402215287569074, +1.80105231230533867745262094446374479, +1.32835498233509180065603401799424250, +1.53314740436341304486462801803954496, +1.58987423854841213275401486625594843, +1.06519295296834441801562274618740086, +1.65155608475121899505012502789699095, +1.06864020006351896535002309040808451, +1.80579615657812799181823025455079708, +1.83552523690003650800593370500731509, +1.67575391809435409296905350675460174, +1.79795619014075361160570476606769137, +1.12406834880363677635170684638756826, +1.19354598754296603892392824218348532, +1.87010196983318701256393579386924137, +1.97222599619346580065080977216640469, +1.99428133858580976643760531495659624, +1.13589536953489988014613172924355190, +1.99990360051517675075920447252722293, +1.43661197104366481203622761123373168, +1.60079780898709168671722232353631433, +1.40464548892867834919130354381233369, +1.12454415480868568403828093379004691, +1.52737588893883972217748010392548203, +1.79647121597244270065059855242276966, +1.84075320912015678867697609583141706, +1.61753464259902290541868269267630615, +1.66127227590740214703071946681782282, +1.16848919247306525837193714257507778, +1.22712330406537597369661901795200655, +1.17668757037627338487057630543925060, +1.57884683181665704295548576760838134
194
195atad = getFFTI(getFFTF(data))
196atad
197+1.37908338697659703440985685977279056, +1.59440778276780912712985396952256380, +1.05253019974248154843386752939132465, +1.32630646641516196644824574112456268, +1.30878925802672879575679695095296016, +1.28330400339301678187831589990255598, +1.21141550809111937318754781054706015, +1.31456911375598631845146610173229048, +1.62712897777550559767139792859548383, +1.60104457288924921419340565932819413, +1.01186444998618439389205779380839550, +1.82222799796137585764601303955879495, +1.40121758934671142066749323378088721, +1.77822304995366065347994873872815241, +1.20882743087367691378305078809734563, +1.69239666400759315815633005273269254, +1.99978055736382201046095281944718678, +1.93949667724611274398559269074471591, +1.45030444511338327637302093463979516, +1.97268120867321327748718408276519726, +1.18053508723305448159121790664505975, +1.52618940865868164328402215287569055, +1.80105231230533867745262094446374498, +1.32835498233509180065603401799424250, +1.53314740436341304486462801803954496, +1.58987423854841213275401486625594804, +1.06519295296834441801562274618740086, +1.65155608475121899505012502789699095, +1.06864020006351896535002309040808451, +1.80579615657812799181823025455079708, +1.83552523690003650800593370500731509, +1.67575391809435409296905350675460193, +1.79795619014075361160570476606769156, +1.12406834880363677635170684638756826, +1.19354598754296603892392824218348551, +1.87010196983318701256393579386924156, +1.97222599619346580065080977216640450, +1.99428133858580976643760531495659643, +1.13589536953489988014613172924355209, +1.99990360051517675075920447252722370, +1.43661197104366481203622761123373187, +1.60079780898709168671722232353631452, +1.40464548892867834919130354381233369, +1.12454415480868568403828093379004711, +1.52737588893883972217748010392548242, +1.79647121597244270065059855242277004, +1.84075320912015678867697609583141725, +1.61753464259902290541868269267630672, +1.66127227590740214703071946681782321, +1.16848919247306525837193714257507739, +1.22712330406537597369661901795200713, +1.17668757037627338487057630543925079, +1.57884683181665704295548576760838153, +0.00000000000000000000000000000000000, +0.00000000000000000000000000000000000, +0.288889491658085377958396691387739098E-33, +0.192592994438723585305597794258492732E-33, +0.00000000000000000000000000000000000, +0.962964972193617926527988971292463659E-34, +0.288889491658085377958396691387739098E-33, +0.962964972193617926527988971292463659E-34, +0.00000000000000000000000000000000000, +0.288889491658085377958396691387739098E-33, +0.00000000000000000000000000000000000
198reltol = sqrt(epsilon(1._TKC))
199reltol
200+0.138777878078144567552953958511352539E-16
201isClose(data, atad(1:size(data)), reltol = reltol)
202T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
203call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
204
205lenData = getUnifRand(5, 100)
206lenData
207+82
208data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)
209data
210(+1.66450429, +0.448921561), (+1.82401168, +0.107391775), (+1.18046892, +0.693375707), (+1.28313208, +0.201827049), (+1.87282920, +0.682938397), (+1.37578964, +0.404312551), (+1.12176275, +0.938338697), (+1.31572485, +0.494929492), (+1.67881048, +0.682015479), (+1.90958619, +0.252475739), (+1.77937877, +0.329316974), (+1.77687693, +0.870620251), (+1.77290130, +0.918453634), (+1.68738651, +0.163398325), (+1.33611774, +0.200237453), (+1.45071673, +0.832010865), (+1.80157137, +0.887544334), (+1.49579477, +0.410708368), (+1.91188097, +0.445221245), (+1.07489538, +0.264202416), (+1.70462680, +0.325954854), (+1.60619688, +0.224492967), (+1.22165942, +0.234134912), (+1.25010967, +0.405936062), (+1.18497372, +0.203959823), (+1.39605474, +0.172505438), (+1.36875510, +0.911320150), (+1.34992206, +0.451057196), (+1.66178298, +0.965902865), (+1.84451675, +0.384414315), (+1.05463779, +0.618941963), (+1.64922225, +0.320441067), (+1.16341114, +0.427311420), (+1.92379367, +0.277396679), (+1.87153780, +0.784009159), (+1.77111053, +0.108686507), (+1.26059890, +0.246421099E-1), (+1.84927762, +0.148202777E-1), (+1.83853006, +0.990359068), (+1.23714781, +0.760932446), (+1.65513420, +0.532836199), (+1.17002320, +0.751620829), (+1.22436500, +0.503903866), (+1.37441492, +0.657481968), (+1.65275586, +0.943937063), (+1.90427446, +0.945991516), (+1.98678339, +0.201340318E-1), (+1.67627025, +0.363416612), (+1.10013628, +0.223679364), (+1.50618625, +0.851304114), (+1.84245324, +0.281989276), (+1.12590003, +0.595557451), (+1.09767485, +0.558878183E-1), (+1.73576057, +0.614634991), (+1.95808530, +0.430536270), (+1.64595222, +0.840965152), (+1.14173603, +0.523132205), (+1.21496868, +0.166522086), (+1.65926909, +0.870397627), (+1.71735406, +0.809122443), (+1.55892169, +0.697458684), (+1.72569168, +0.978379250E-1), (+1.10804796, +0.952547193E-1), (+1.65914679, +0.312666059), (+1.33908617, +0.150733232), (+1.19798362, +0.557138622), (+1.73730779, +0.940126777E-1), (+1.53596377, +0.261518359), (+1.49526930, +0.967948496), (+1.59280324, +0.299900472), (+1.03001356, +0.886172354), (+1.18444765, +0.374180555), (+1.00509858, +0.303928494), (+1.46998668, +0.556274652), (+1.79894054, +0.134527087), (+1.44232202, +0.415157020), (+1.85155940, +0.617928505E-1), (+1.90414214, +0.649220586), (+1.49038029, +0.656070888), (+1.88400710, +0.759598017), (+1.61908209, +0.118255556), (+1.88436031, +0.294430494)
211
212atad = getFFTI(getFFTF(data))
213atad
214(+1.66450429, +0.448921472), (+1.82401180, +0.107391968), (+1.18046868, +0.693375766), (+1.28313184, +0.201827213), (+1.87282896, +0.682938278), (+1.37578976, +0.404312611), (+1.12176275, +0.938338697), (+1.31572485, +0.494929522), (+1.67881036, +0.682015598), (+1.90958631, +0.252476096), (+1.77937865, +0.329317153), (+1.77687681, +0.870620370), (+1.77290142, +0.918453634), (+1.68738651, +0.163398609), (+1.33611786, +0.200237572), (+1.45071685, +0.832010865), (+1.80157137, +0.887544394), (+1.49579453, +0.410708576), (+1.91188073, +0.445221215), (+1.07489538, +0.264202625), (+1.70462656, +0.325954795), (+1.60619664, +0.224493146), (+1.22165930, +0.234134912), (+1.25010967, +0.405936182), (+1.18497360, +0.203959972), (+1.39605474, +0.172505677), (+1.36875510, +0.911320090), (+1.34992218, +0.451057404), (+1.66178298, +0.965902984), (+1.84451675, +0.384414494), (+1.05463791, +0.618941903), (+1.64922214, +0.320441097), (+1.16341114, +0.427311271), (+1.92379355, +0.277396560), (+1.87153780, +0.784008920), (+1.77111042, +0.108686395), (+1.26059866, +0.246420130E-1), (+1.84927750, +0.148200095E-1), (+1.83853018, +0.990358710), (+1.23714781, +0.760932207), (+1.65513396, +0.532836199), (+1.17002296, +0.751620531), (+1.22436500, +0.503903747), (+1.37441492, +0.657481968), (+1.65275574, +0.943936884), (+1.90427423, +0.945991397), (+1.98678350, +0.201339126E-1), (+1.67627001, +0.363416433), (+1.10013652, +0.223679349), (+1.50618625, +0.851303935), (+1.84245324, +0.281989038), (+1.12589991, +0.595557153), (+1.09767461, +0.558876693E-1), (+1.73576033, +0.614634871), (+1.95808530, +0.430536032), (+1.64595199, +0.840964854), (+1.14173579, +0.523132205), (+1.21496868, +0.166521847), (+1.65926886, +0.870397329), (+1.71735382, +0.809122205), (+1.55892158, +0.697458386), (+1.72569144, +0.978378057E-1), (+1.10804808, +0.952546000E-1), (+1.65914655, +0.312665969), (+1.33908629, +0.150733143), (+1.19798374, +0.557138324), (+1.73730767, +0.940124989E-1), (+1.53596377, +0.261518240), (+1.49526930, +0.967948377), (+1.59280336, +0.299900293), (+1.03001380, +0.886172235), (+1.18444777, +0.374180347), (+1.00509834, +0.303928494), (+1.46998656, +0.556274593), (+1.79894042, +0.134527013), (+1.44232190, +0.415156960), (+1.85155928, +0.617929101E-1), (+1.90414190, +0.649220705), (+1.49038041, +0.656070888), (+1.88400710, +0.759597898), (+1.61908197, +0.118255496), (+1.88436007, +0.294430345), (+0.298023224E-6, -0.894069672E-7), (+0.238418579E-6, -0.298023224E-7), (+0.178813934E-6, -0.149011612E-7), (+0.298023224E-6, -0.596046448E-7), (+0.357627869E-6, +0.149011612E-6), (+0.417232513E-6, +0.223517418E-6), (+0.00000000, -0.201165676E-6), (+0.00000000, -0.230967999E-6), (-0.596046448E-7, -0.208616257E-6), (+0.596046448E-7, -0.268220901E-6), (-0.596046448E-7, -0.596046448E-7), (+0.596046448E-7, -0.298023224E-6), (+0.00000000, +0.298023224E-7), (+0.178813934E-6, -0.894069672E-7), (+0.596046448E-7, -0.298023224E-7), (+0.238418579E-6, +0.163912773E-6), (+0.119209290E-6, +0.238418579E-6), (+0.119209290E-6, +0.275671482E-6), (-0.596046448E-7, +0.335276127E-6), (+0.178813934E-6, +0.208616257E-6), (+0.119209290E-6, +0.238418579E-6), (+0.00000000, +0.357627869E-6), (-0.596046448E-7, +0.596046448E-7), (+0.596046448E-7, +0.298023224E-7), (+0.596046448E-7, +0.119209290E-6), (+0.596046448E-7, -0.596046448E-7), (+0.00000000, +0.178813934E-6), (+0.596046448E-7, +0.00000000), (+0.178813934E-6, +0.178813934E-6), (+0.00000000, +0.596046448E-7), (+0.298023224E-6, +0.104308128E-6), (+0.298023224E-6, +0.119209290E-6), (+0.178813934E-6, +0.238418579E-6), (+0.119209290E-6, +0.238418579E-6), (-0.596046448E-7, +0.238418579E-6), (+0.238418579E-6, +0.208616257E-6), (+0.298023224E-6, +0.327825546E-6), (+0.298023224E-6, +0.417232513E-6), (+0.596046448E-7, -0.298023224E-7), (+0.238418579E-6, -0.745058060E-8), (+0.298023224E-6, +0.208616257E-6), (+0.298023224E-6, +0.149011612E-6), (+0.178813934E-6, +0.00000000), (+0.357627869E-6, -0.596046448E-7), (+0.119209290E-6, +0.152736902E-6), (+0.417232513E-6, +0.894069672E-7)
215reltol = sqrt(epsilon(1._TKC))
216reltol
217+0.345266977E-3
218isClose(data, atad(1:size(data)), reltol = reltol)
219T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
220call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
221
222lenData = getUnifRand(5, 100)
223lenData
224+21
225data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)
226data
227(+1.4009923769838926, +0.68578729663627547E-2), (+1.7293309309024019, +0.78629435060525188), (+1.9234027419582036, +0.18230295227256743), (+1.7158140205019374, +0.74285200420903086), (+1.0066314498991891, +0.81237091446929055), (+1.7413067816201746, +0.92199709489176107), (+1.8300613967540695, +0.80913409304581352), (+1.1846852845147788, +0.43458896421258852), (+1.8058627490430501, +0.54046524572559962), (+1.8914425750611918, +0.85651734641791455), (+1.5376093820761281, +0.64845841560009554), (+1.4450163037283192, +0.62380813497955978), (+1.4788443007884511, +0.81940664498428906), (+1.9443392664388868, +0.93912037261805670), (+1.5236188157633133, +0.13468433257029200), (+1.1061916904635019, +0.34309610673388802), (+1.9267557027850279, +0.76129241961041871), (+1.5157306244752475, +0.14857293823183459), (+1.9489184280376426, +0.44467568714745587), (+1.5248789430837810, +0.26876001208370059), (+1.5846070664104284, +0.96929245619358262)
228
229atad = getFFTI(getFFTF(data))
230atad
231(+1.4009923769838928, +0.68578729663628102E-2), (+1.7293309309024014, +0.78629435060525199), (+1.9234027419582034, +0.18230295227256749), (+1.7158140205019370, +0.74285200420903097), (+1.0066314498991891, +0.81237091446929066), (+1.7413067816201742, +0.92199709489176118), (+1.8300613967540691, +0.80913409304581352), (+1.1846852845147784, +0.43458896421258858), (+1.8058627490430501, +0.54046524572559940), (+1.8914425750611914, +0.85651734641791433), (+1.5376093820761274, +0.64845841560009554), (+1.4450163037283188, +0.62380813497955956), (+1.4788443007884509, +0.81940664498428906), (+1.9443392664388861, +0.93912037261805614), (+1.5236188157633128, +0.13468433257029194), (+1.1061916904635014, +0.34309610673388796), (+1.9267557027850282, +0.76129241961041871), (+1.5157306244752475, +0.14857293823183448), (+1.9489184280376424, +0.44467568714745603), (+1.5248789430837806, +0.26876001208370037), (+1.5846070664104284, +0.96929245619358262), (+0.22204460492503131E-15, -0.33306690738754696E-15), (+0.0000000000000000, -0.16653345369377348E-15), (+0.55511151231257827E-15, -0.16653345369377348E-15), (+0.11102230246251565E-15, +0.11102230246251565E-15), (+0.22204460492503131E-15, +0.27755575615628914E-15), (-0.11102230246251565E-15, +0.0000000000000000), (+0.44408920985006262E-15, +0.33306690738754696E-15), (+0.22204460492503131E-15, +0.33306690738754696E-15), (+0.44408920985006262E-15, +0.44408920985006262E-15), (+0.33306690738754696E-15, +0.16653345369377348E-15), (+0.55511151231257827E-15, +0.49960036108132044E-15)
232reltol = sqrt(epsilon(1._TKC))
233reltol
234+0.14901161193847656E-7
235isClose(data, atad(1:size(data)), reltol = reltol)
236T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
237call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
238
239lenData = getUnifRand(5, 100)
240lenData
241+68
242data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)
243data
244(+1.12158283266915700773269377280119001, +0.196678240460600844039264251023313072), (+1.67178857794355591091738820638935533, +0.220122285936397414311705852270794494), (+1.57984524164642415620109768782865186, +0.477759563057508674706998250898712616), (+1.03173444649263023083397772837968972, +0.830307450171920254929219914994353746), (+1.82383889216240080200679663335967783, +0.280849091235395667719981256797983144), (+1.11957732043596038213697402627869673, +0.750004975327708760737414481821829787), (+1.62388337472141851154591897051864737, +0.991200096090214514951813556486617544), (+1.57592523446987190767225540883501166, +0.166741257081557334643200440272980705), (+1.10989144820714266488802118993870463, +0.620457437632854117522931325564674050), (+1.84337002758269654388022878992443746, +0.641387700806726110598654545444759993), (+1.24157524531755007059240576373335829, +0.185829228261893886677384655004608856), (+1.49342661998063808152624169537884572, +0.933435976628052479638653835532777488), (+1.50867990310117348212478787359890289, +0.243364246209157371476874149300829497), (+1.05344995627719718566458379997440303, +0.128154258507352783949059240526389653E-1), (+1.46261973288332366349626714142068198, +0.259587100766505043450315718340853695E-1), (+1.92352479836679592793650781533462932, +0.203984709869806429591894341457315718), (+1.80516590379356537058318463567524262, +0.920755344577230882550828003293630050), (+1.92076689472334495167654640769306703, +0.533573022408203887419058320017275832), (+1.33822565348410242202055345740874817, +0.582472207520824681525142484693016012), (+1.73519650797218839496009199762903538, +0.949332278268146771230780737811052043), (+1.43060964373624351976897124283978671, +0.836804788754870615371993369202100659), (+1.13663250946238698961346335078929234, +0.312538101734101926212145792089409759), (+1.66428433947692222915067845110138940, +0.222188020752809772046394384236513176), (+1.68540216129494999059054913563437539, +0.638851979570371362658449935510164965), (+1.22359190133668147379625148201617082, +0.463363307008229381950925829713966588), (+1.40759692954673911828622884602309801, +0.633061590183095885336197095821465953), (+1.76720021552259496162755745019700977, +0.656095660996712196749956533264233504), (+1.84787704987586135596339572408091670, +0.275499377089917167628995372516929472), (+1.60131374313565420974211007305324963, +0.761030338898981492895421218933594378), (+1.92448843390191971838613898180438117, +0.859348816820035145417200735800397321), (+1.62300610486309629004004965777055181, +0.447975666140532433970804111626738582), (+1.22944136128965568744587333156257165, +0.476354921951597956077785757112673856), (+1.93169060480447682315637976529769936, +0.999650481403611682433451217395728817), (+1.88407032650779090993135623598643699, +0.227618172333765254201966190124674438), (+1.43003964214267045404653899972145933, +0.162711255186744143290643655342042919), (+1.63020781373443915375095460114695886, +0.671637470541958685401306649829270122), (+1.71692581091385135675008277434322432, +0.136714754577674829330913791849458184), (+1.92714458862607217669019898834338022, +0.669826776247165879243837540759347574), (+1.39800741025270136698304746694472536, +0.246217051298049831356062875116684509), (+1.07405050197760916671887274490908964, +0.252021899986078573846693280263967787), (+1.15623831172372579895594581649124250, +0.115091718421175059073483872093545748), (+1.91679885341669967686120844908377181, +0.763252351900789409962454956625238934), (+1.34800812850731035606008427767497960, +0.790450660422112930585949443153910573), (+1.55990818059679933560438063946714399, +0.796210486090970693719969340362034929), (+1.99312143311219002770660220343559867, +0.529506660848141388151896993069753678), (+1.53185923767288217867727301733867973, +0.157226197564216787881506163828030267), (+1.40653087215494843112430854504943242, +0.632656062842206311998649356751325716), (+1.74892347408207934960607677806924544, +0.154750955397002780701158731439066310), (+1.04650437434109651784834142984970043, +0.293497892218270495441102869370026736), (+1.10350215542501064459584028257331078, +0.190423560883315431880270381548129911), (+1.24100285984119455479015487356218654, +0.456133915358457323272743981372613588), (+1.10177085574208783502292206716351227, +0.369732806840163747376098121635986023), (+1.94747824598769034187812706925796949, +0.345426894121573842952881939704784683), (+1.35704336682625672936713623860690155, +0.129546822548989418294868600361871986), (+1.87452588525020714260768415862836973, +0.645937783917058078595033216426432978), (+1.05412473993952087082412497504882890, +0.113747386435958767411537162275200274), (+1.33910617711589963177036727738917322, +0.265140851937730398336395390188771263), (+1.24470669097577062735488353916730063, +0.831372846977557856180885335594797463), (+1.17391288624539224863841892532167841, +0.474506219104208857449217031078300731), (+1.46610929001410405353000596601090263, +0.673078023532461037130508034417577592), (+1.89690037120186988220962184944291316, +0.426824673757119647214589950360981274), (+1.99596384788265016127821675241458968, +0.901303042357879626763683889818796217), (+1.24828380773001096419075578735053774, +0.598008685795400286957051851407683999), (+1.18044526106151260762111974612014324, +0.371830368349982976088077126456723164), (+1.37962680705410563930340548171385608, +0.824642362415902480954625772031618882), (+1.80173812883000593928003526371698876, +0.386030522996143420453029780747047082E-1), (+1.44339277149346608448264314111331109, +0.122910810618872771127196148735996711), (+1.30885463561879533598049740764640354, +0.703159811501663285751675598923860900)
245
246atad = getFFTI(getFFTF(data))
247atad
248(+1.12158283266915700773269377280118963, +0.196678240460600844039264251023312976), (+1.67178857794355591091738820638935571, +0.220122285936397414311705852270794398), (+1.57984524164642415620109768782865186, +0.477759563057508674706998250898712713), (+1.03173444649263023083397772837968972, +0.830307450171920254929219914994353553), (+1.82383889216240080200679663335967783, +0.280849091235395667719981256797982999), (+1.11957732043596038213697402627869673, +0.750004975327708760737414481821829787), (+1.62388337472141851154591897051864737, +0.991200096090214514951813556486617544), (+1.57592523446987190767225540883501166, +0.166741257081557334643200440272980248), (+1.10989144820714266488802118993870463, +0.620457437632854117522931325564674242), (+1.84337002758269654388022878992443823, +0.641387700806726110598654545444760185), (+1.24157524531755007059240576373335829, +0.185829228261893886677384655004609000), (+1.49342661998063808152624169537884611, +0.933435976628052479638653835532777585), (+1.50867990310117348212478787359890289, +0.243364246209157371476874149300829449), (+1.05344995627719718566458379997440341, +0.128154258507352783949059240526387848E-1), (+1.46261973288332366349626714142068237, +0.259587100766505043450315718340854899E-1), (+1.92352479836679592793650781533462971, +0.203984709869806429591894341457315333), (+1.80516590379356537058318463567524243, +0.920755344577230882550828003293629858), (+1.92076689472334495167654640769306780, +0.533573022408203887419058320017276024), (+1.33822565348410242202055345740874817, +0.582472207520824681525142484693016109), (+1.73519650797218839496009199762903577, +0.949332278268146771230780737811052043), (+1.43060964373624351976897124283978651, +0.836804788754870615371993369202100659), (+1.13663250946238698961346335078929272, +0.312538101734101926212145792089409615), (+1.66428433947692222915067845110138940, +0.222188020752809772046394384236513176), (+1.68540216129494999059054913563437577, +0.638851979570371362658449935510164773), (+1.22359190133668147379625148201617063, +0.463363307008229381950925829713966685), (+1.40759692954673911828622884602309840, +0.633061590183095885336197095821466145), (+1.76720021552259496162755745019700996, +0.656095660996712196749956533264233697), (+1.84787704987586135596339572408091747, +0.275499377089917167628995372516929520), (+1.60131374313565420974211007305324924, +0.761030338898981492895421218933594378), (+1.92448843390191971838613898180438194, +0.859348816820035145417200735800397610), (+1.62300610486309629004004965777055181, +0.447975666140532433970804111626738679), (+1.22944136128965568744587333156257184, +0.476354921951597956077785757112673953), (+1.93169060480447682315637976529769917, +0.999650481403611682433451217395728914), (+1.88407032650779090993135623598643756, +0.227618172333765254201966190124674438), (+1.43003964214267045404653899972145933, +0.162711255186744143290643655342043016), (+1.63020781373443915375095460114695944, +0.671637470541958685401306649829270411), (+1.71692581091385135675008277434322432, +0.136714754577674829330913791849458232), (+1.92714458862607217669019898834338079, +0.669826776247165879243837540759347671), (+1.39800741025270136698304746694472555, +0.246217051298049831356062875116684437), (+1.07405050197760916671887274490908983, +0.252021899986078573846693280263967835), (+1.15623831172372579895594581649124250, +0.115091718421175059073483872093545869), (+1.91679885341669967686120844908377239, +0.763252351900789409962454956625239608), (+1.34800812850731035606008427767497940, +0.790450660422112930585949443153910959), (+1.55990818059679933560438063946714437, +0.796210486090970693719969340362035603), (+1.99312143311219002770660220343559867, +0.529506660848141388151896993069753967), (+1.53185923767288217867727301733868031, +0.157226197564216787881506163828030315), (+1.40653087215494843112430854504943261, +0.632656062842206311998649356751325908), (+1.74892347408207934960607677806924602, +0.154750955397002780701158731439066406), (+1.04650437434109651784834142984970005, +0.293497892218270495441102869370026833), (+1.10350215542501064459584028257331117, +0.190423560883315431880270381548129815), (+1.24100285984119455479015487356218654, +0.456133915358457323272743981372613829), (+1.10177085574208783502292206716351227, +0.369732806840163747376098121635986457), (+1.94747824598769034187812706925796949, +0.345426894121573842952881939704784635), (+1.35704336682625672936713623860690232, +0.129546822548989418294868600361871649), (+1.87452588525020714260768415862836993, +0.645937783917058078595033216426432978), (+1.05412473993952087082412497504882928, +0.113747386435958767411537162275200250), (+1.33910617711589963177036727738917322, +0.265140851937730398336395390188771455), (+1.24470669097577062735488353916730102, +0.831372846977557856180885335594797945), (+1.17391288624539224863841892532167822, +0.474506219104208857449217031078300827), (+1.46610929001410405353000596601090263, +0.673078023532461037130508034417578073), (+1.89690037120186988220962184944291316, +0.426824673757119647214589950360981515), (+1.99596384788265016127821675241459064, +0.901303042357879626763683889818796699), (+1.24828380773001096419075578735053793, +0.598008685795400286957051851407684191), (+1.18044526106151260762111974612014363, +0.371830368349982976088077126456723261), (+1.37962680705410563930340548171385570, +0.824642362415902480954625772031618882), (+1.80173812883000593928003526371698915, +0.386030522996143420453029780747045277E-1), (+1.44339277149346608448264314111331070, +0.122910810618872771127196148735996711), (+1.30885463561879533598049740764640335, +0.703159811501663285751675598923861381), (-0.962964972193617926527988971292463659E-34, +0.481482486096808963263994485646231830E-34), (+0.00000000000000000000000000000000000, +0.337037740267766274284796139952362281E-33), (-0.962964972193617926527988971292463659E-34, +0.962964972193617926527988971292463659E-34), (-0.962964972193617926527988971292463659E-34, +0.264815367353244929795196967105427506E-33), (-0.288889491658085377958396691387739098E-33, -0.962964972193617926527988971292463659E-34), (-0.192592994438723585305597794258492732E-33, -0.144444745829042688979198345693869549E-33), (-0.288889491658085377958396691387739098E-33, -0.337037740267766274284796139952362281E-33), (-0.577778983316170755916793382775478196E-33, +0.962964972193617926527988971292463659E-34), (-0.192592994438723585305597794258492732E-33, -0.361111864572606722447995864234673872E-34), (-0.385185988877447170611195588516985464E-33, -0.132407683676622464897598483552713753E-33), (-0.385185988877447170611195588516985464E-33, -0.168518870133883137142398069976181140E-33), (-0.385185988877447170611195588516985464E-33, +0.204630056591143809387197656399648528E-33), (-0.385185988877447170611195588516985464E-33, +0.962964972193617926527988971292463659E-34), (-0.962964972193617926527988971292463659E-34, -0.192592994438723585305597794258492732E-33), (-0.481482486096808963263994485646231830E-33, -0.962964972193617926527988971292463659E-34), (-0.481482486096808963263994485646231830E-33, -0.240741243048404481631997242823115915E-33), (+0.00000000000000000000000000000000000, +0.00000000000000000000000000000000000), (-0.962964972193617926527988971292463659E-34, +0.144444745829042688979198345693869549E-33), (-0.288889491658085377958396691387739098E-33, -0.962964972193617926527988971292463659E-34), (-0.288889491658085377958396691387739098E-33, +0.962964972193617926527988971292463659E-34), (-0.192592994438723585305597794258492732E-33, -0.216667118743564033468797518540804323E-33), (-0.192592994438723585305597794258492732E-33, -0.962964972193617926527988971292463659E-34), (-0.577778983316170755916793382775478196E-33, -0.192592994438723585305597794258492732E-33), (-0.674075480535532548569592279904724561E-33, -0.240741243048404481631997242823115915E-33), (+0.962964972193617926527988971292463659E-34, +0.962964972193617926527988971292463659E-34), (-0.288889491658085377958396691387739098E-33, -0.962964972193617926527988971292463659E-34), (-0.385185988877447170611195588516985464E-33, -0.192592994438723585305597794258492732E-33), (-0.288889491658085377958396691387739098E-33, -0.240741243048404481631997242823115915E-34), (-0.385185988877447170611195588516985464E-33, -0.481482486096808963263994485646231830E-34), (-0.962964972193617926527988971292463659E-34, -0.120370621524202240815998621411557957E-34), (-0.481482486096808963263994485646231830E-33, -0.601853107621011204079993107057789787E-34), (-0.577778983316170755916793382775478196E-33, -0.192592994438723585305597794258492732E-33), (-0.962964972193617926527988971292463659E-34, -0.481482486096808963263994485646231830E-34), (-0.385185988877447170611195588516985464E-33, +0.00000000000000000000000000000000000), (-0.385185988877447170611195588516985464E-33, +0.168518870133883137142398069976181140E-33), (-0.385185988877447170611195588516985464E-33, -0.481482486096808963263994485646231830E-34), (-0.192592994438723585305597794258492732E-33, -0.168518870133883137142398069976181140E-33), (-0.192592994438723585305597794258492732E-33, -0.625927231925851652243192831340101379E-33), (-0.385185988877447170611195588516985464E-33, -0.385185988877447170611195588516985464E-33), (-0.674075480535532548569592279904724561E-33, -0.529630734706489859590393934210855013E-33), (-0.962964972193617926527988971292463659E-34, -0.337037740267766274284796139952362281E-33), (-0.481482486096808963263994485646231830E-33, -0.228704180895984257550397380681960119E-33), (-0.288889491658085377958396691387739098E-33, -0.385185988877447170611195588516985464E-33), (-0.577778983316170755916793382775478196E-33, -0.108333559371782016734398759270402162E-33), (-0.288889491658085377958396691387739098E-33, -0.120370621524202240815998621411557957E-33), (-0.962964972193617926527988971292463659E-34, +0.481482486096808963263994485646231830E-34), (-0.385185988877447170611195588516985464E-33, -0.144444745829042688979198345693869549E-33), (-0.481482486096808963263994485646231830E-33, -0.529630734706489859590393934210855013E-33), (-0.288889491658085377958396691387739098E-33, -0.481482486096808963263994485646231830E-34), (-0.481482486096808963263994485646231830E-33, +0.144444745829042688979198345693869549E-33), (-0.577778983316170755916793382775478196E-33, +0.00000000000000000000000000000000000), (-0.481482486096808963263994485646231830E-33, -0.722223729145213444895991728469347744E-34), (-0.288889491658085377958396691387739098E-33, -0.192592994438723585305597794258492732E-33), (-0.962964972193617926527988971292463659E-34, -0.337037740267766274284796139952362281E-33), (-0.192592994438723585305597794258492732E-33, -0.337037740267766274284796139952362281E-33), (-0.962964972193617926527988971292463659E-34, -0.625927231925851652243192831340101379E-33), (-0.288889491658085377958396691387739098E-33, -0.433334237487128066937595037081608647E-33), (-0.577778983316170755916793382775478196E-33, -0.481482486096808963263994485646231830E-33), (-0.288889491658085377958396691387739098E-33, -0.288889491658085377958396691387739098E-33), (-0.481482486096808963263994485646231830E-33, -0.361111864572606722447995864234673872E-33)
249reltol = sqrt(epsilon(1._TKC))
250reltol
251+0.138777878078144567552953958511352539E-16
252isClose(data, atad(1:size(data)), reltol = reltol)
253T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
254call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
255
256lenData = getUnifRand(5, 100)
257lenData
258+85
259data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)
260data
261+1.41031539, +1.91593444, +1.34389925, +1.80846810, +1.83348155, +1.13793921, +1.72455537, +1.71894741, +1.14963150, +1.25272405, +1.81508160, +1.37875772, +1.53980303, +1.88733435, +1.02911806, +1.50227511, +1.15282619, +1.42631769, +1.26136124, +1.07585371, +1.89167762, +1.27421021, +1.64835703, +1.46698642, +1.99329460, +1.31995368, +1.05706620, +1.67072952, +1.08879662, +1.97048938, +1.82051682, +1.23998809, +1.40401268, +1.35447264, +1.36900043, +1.88066256, +1.85767961, +1.45567179, +1.13517118, +1.10168254, +1.25358856, +1.38719392, +1.97165155, +1.55986357, +1.29213917, +1.96325541, +1.18320107, +1.90604842, +1.79362655, +1.15672123, +1.08700609, +1.87929881, +1.64917636, +1.51724112, +1.23929644, +1.36478031, +1.33279347, +1.19796777, +1.25149703, +1.39793563, +1.45834351, +1.77424610, +1.85064483, +1.49262691, +1.64567304, +1.59308863, +1.70028305, +1.34691167, +1.50407958, +1.36343002, +1.19750094, +1.72700405, +1.04454267, +1.08031464, +1.26799202, +1.66951156, +1.35569668, +1.72036338, +1.05766606, +1.00263572, +1.82233846, +1.91875219, +1.39500129, +1.69007373, +1.93066251
262
263atad = getFFTI(getFFTF(data))
264atad
265+1.41031539, +1.91593456, +1.34389925, +1.80846822, +1.83348143, +1.13793921, +1.72455502, +1.71894729, +1.14963174, +1.25272417, +1.81508183, +1.37875772, +1.53980339, +1.88733459, +1.02911806, +1.50227499, +1.15282619, +1.42631757, +1.26136124, +1.07585359, +1.89167762, +1.27421033, +1.64835668, +1.46698618, +1.99329448, +1.31995404, +1.05706620, +1.67072940, +1.08879673, +1.97048962, +1.82051671, +1.23998785, +1.40401268, +1.35447240, +1.36900067, +1.88066220, +1.85767984, +1.45567179, +1.13517106, +1.10168219, +1.25358868, +1.38719392, +1.97165155, +1.55986357, +1.29213941, +1.96325564, +1.18320107, +1.90604806, +1.79362655, +1.15672112, +1.08700585, +1.87929869, +1.64917636, +1.51724100, +1.23929620, +1.36477971, +1.33279300, +1.19796777, +1.25149679, +1.39793539, +1.45834327, +1.77424622, +1.85064447, +1.49262667, +1.64567292, +1.59308863, +1.70028281, +1.34691155, +1.50407970, +1.36343002, +1.19750094, +1.72700393, +1.04454255, +1.08031487, +1.26799178, +1.66951156, +1.35569680, +1.72036386, +1.05766630, +1.00263596, +1.82233822, +1.91875207, +1.39500129, +1.69007373, +1.93066287, +0.238418579E-6, +0.536441803E-6, +0.298023224E-6, +0.00000000, +0.00000000, +0.298023224E-6, -0.119209290E-6, +0.476837158E-6, +0.357627869E-6, +0.357627869E-6, +0.417232513E-6, +0.00000000, +0.596046448E-7, +0.596046448E-7, +0.178813934E-6, +0.417232513E-6, +0.536441803E-6, +0.119209290E-6, +0.655651093E-6, +0.178813934E-6, +0.298023224E-6, +0.357627869E-6, +0.178813934E-6, +0.119209290E-6, +0.417232513E-6, +0.178813934E-6, +0.536441803E-6, +0.238418579E-6, +0.178813934E-6, +0.298023224E-6, +0.417232513E-6, +0.357627869E-6, +0.536441803E-6, +0.238418579E-6, +0.774860382E-6, +0.417232513E-6, +0.298023224E-6, +0.298023224E-6, +0.298023224E-6, +0.298023224E-6, +0.476837158E-6, +0.119209290E-6, +0.357627869E-6
266reltol = sqrt(epsilon(1._TKC))
267reltol
268+0.345266977E-3
269isClose(data, atad(1:size(data)), reltol = reltol)
270T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
271call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
272
273lenData = getUnifRand(5, 100)
274lenData
275+22
276data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)
277data
278+1.7016590295994134, +1.6713839120830531, +1.4926222731827663, +1.3803590954184777, +1.5498703754881602, +1.4970341589172622, +1.9933338438922186, +1.0774506327001161, +1.1871888225847766, +1.9642609203010926, +1.0697916631320938, +1.8159922405970215, +1.6365837282176785, +1.9582355677909984, +1.2377272566835551, +1.5916038823550331, +1.8728620312416053, +1.3881428654211199, +1.8664234979400032, +1.8278894770972507, +1.3954374130658347, +1.4969594605799899
279
280atad = getFFTI(getFFTF(data))
281atad
282+1.7016590295994132, +1.6713839120830525, +1.4926222731827659, +1.3803590954184777, +1.5498703754881600, +1.4970341589172618, +1.9933338438922181, +1.0774506327001163, +1.1871888225847766, +1.9642609203010921, +1.0697916631320936, +1.8159922405970210, +1.6365837282176789, +1.9582355677909977, +1.2377272566835555, +1.5916038823550323, +1.8728620312416051, +1.3881428654211196, +1.8664234979400025, +1.8278894770972507, +1.3954374130658347, +1.4969594605799896, +0.33306690738754696E-15, -0.22204460492503131E-15, -0.55511151231257827E-15, +0.33306690738754696E-15, -0.33306690738754696E-15, +0.11102230246251565E-15, -0.33306690738754696E-15, +0.66613381477509392E-15, +0.0000000000000000, +0.44408920985006262E-15
283reltol = sqrt(epsilon(1._TKC))
284reltol
285+0.14901161193847656E-7
286isClose(data, atad(1:size(data)), reltol = reltol)
287T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
288call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
289
290lenData = getUnifRand(5, 100)
291lenData
292+43
293data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)
294data
295+1.44591842017994579206076744680503260, +1.69810470019380409601310759455024378, +1.38513299037081859735572271679371802, +1.39020971741412917554728387506310874, +1.51131897199928390827537994495526854, +1.43532194391112667726234310770189505, +1.69904348656089011184707852511816469, +1.25475793145893111047933148301513492, +1.45792940663284062488214579700819208, +1.25431765627888487803780444905975814, +1.61540171079323869019602377510837642, +1.25785230840450748774546886959468805, +1.80237882162299236727706622950222489, +1.26209103977418732241583678828049862, +1.29924445241653991697536836619605190, +1.43961384493732365882994978381115512, +1.60351387998414552670483082786454867, +1.41541423713253928275079909044052816, +1.40508795395248226296584666605826486, +1.52771324518510118147380901002377020, +1.06132067150132446066122702595618478, +1.45740509499853848139302104490146458, +1.67113567884235216754569366355686842, +1.99934750735726886265120741608838516, +1.68652868916853860870814483525613757, +1.56627211987005484618323530898839820, +1.84707470531942655375427499466285760, +1.55097682410630697923138710246743785, +1.32965624796744640904852367189313876, +1.84511821608321285342091306927390977, +1.34530626155813112322151381287079679, +1.45258879967413669437446458243307749, +1.18788483975764734315886779207936821, +1.02870403848664421548888842029275704, +1.49143370283058334907179966804547838, +1.30562834445341478646569188389155193, +1.20480949244282803141128242596189038, +1.31802656091608047808118013198487090, +1.44384548235931863151659003135045648, +1.87505264583455908953693652261997234, +1.75916879114590223640314243621730829, +1.38994308306704477244083396548663142, +1.43752667402161259986549950221464413
296
297atad = getFFTI(getFFTF(data))
298atad
299+1.44591842017994579206076744680503298, +1.69810470019380409601310759455024378, +1.38513299037081859735572271679371821, +1.39020971741412917554728387506310913, +1.51131897199928390827537994495526874, +1.43532194391112667726234310770189486, +1.69904348656089011184707852511816526, +1.25475793145893111047933148301513492, +1.45792940663284062488214579700819189, +1.25431765627888487803780444905975833, +1.61540171079323869019602377510837642, +1.25785230840450748774546886959468747, +1.80237882162299236727706622950222508, +1.26209103977418732241583678828049843, +1.29924445241653991697536836619605209, +1.43961384493732365882994978381115474, +1.60351387998414552670483082786454848, +1.41541423713253928275079909044052797, +1.40508795395248226296584666605826466, +1.52771324518510118147380901002377001, +1.06132067150132446066122702595618439, +1.45740509499853848139302104490146439, +1.67113567884235216754569366355686842, +1.99934750735726886265120741608838497, +1.68652868916853860870814483525613699, +1.56627211987005484618323530898839820, +1.84707470531942655375427499466285741, +1.55097682410630697923138710246743766, +1.32965624796744640904852367189313818, +1.84511821608321285342091306927391035, +1.34530626155813112322151381287079660, +1.45258879967413669437446458243307749, +1.18788483975764734315886779207936821, +1.02870403848664421548888842029275704, +1.49143370283058334907179966804547838, +1.30562834445341478646569188389155193, +1.20480949244282803141128242596188981, +1.31802656091608047808118013198487090, +1.44384548235931863151659003135045668, +1.87505264583455908953693652261997272, +1.75916879114590223640314243621730809, +1.38994308306704477244083396548663200, +1.43752667402161259986549950221464413, +0.192592994438723585305597794258492732E-33, -0.770371977754894341222391177033970927E-33, +0.192592994438723585305597794258492732E-33, -0.962964972193617926527988971292463659E-34, +0.385185988877447170611195588516985464E-33, +0.288889491658085377958396691387739098E-33, +0.192592994438723585305597794258492732E-33, +0.385185988877447170611195588516985464E-33, +0.385185988877447170611195588516985464E-33, -0.288889491658085377958396691387739098E-33, -0.962964972193617926527988971292463659E-34, +0.192592994438723585305597794258492732E-33, +0.192592994438723585305597794258492732E-33, +0.00000000000000000000000000000000000, +0.481482486096808963263994485646231830E-33, +0.192592994438723585305597794258492732E-33, +0.192592994438723585305597794258492732E-33, +0.00000000000000000000000000000000000, -0.385185988877447170611195588516985464E-33, +0.288889491658085377958396691387739098E-33, +0.192592994438723585305597794258492732E-33
300reltol = sqrt(epsilon(1._TKC))
301reltol
302+0.138777878078144567552953958511352539E-16
303isClose(data, atad(1:size(data)), reltol = reltol)
304T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
305call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
306
307lenData = getUnifRand(5, 100)
308lenData
309+48
310data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)
311data
312(+1.45672464, +0.728731394), (+1.44925332, +0.893549323E-1), (+1.96940446, +0.928269148), (+1.34860921, +0.889899552), (+1.98264337, +0.627325535), (+1.77239799, +0.858065009), (+1.42465782, +0.570889592), (+1.11551929, +0.918815076), (+1.54240966, +0.583701611), (+1.19902492, +0.986525416E-1), (+1.48716545, +0.207360566), (+1.91372514, +0.844184518), (+1.01851940, +0.498572290), (+1.12408817, +0.537967324), (+1.06910038, +0.617705822), (+1.79939187, +0.425021827), (+1.95061612, +0.387837410), (+1.15925145, +0.658080518), (+1.88197708, +0.292476237), (+1.49823451, +0.404058099E-1), (+1.46030760, +0.702975929), (+1.66563678, +0.404055715E-1), (+1.60086060, +0.279126406), (+1.72727859, +0.242286086), (+1.80427516, +0.320442140), (+1.59525490, +0.493701994), (+1.62450731, +0.806649923), (+1.74800086, +0.947888494E-1), (+1.56558287, +0.825958133), (+1.82506800, +0.786041915), (+1.40342236, +0.287600756E-1), (+1.93989253, +0.177970469), (+1.41714489, +0.691430569), (+1.28225338, +0.404428005), (+1.90489733, +0.620429456), (+1.68782532, +0.621079683), (+1.07892156, +0.103084981), (+1.35602260, +0.272712111E-1), (+1.37342072, +0.799196124), (+1.66304493, +0.711302161), (+1.58578384, +0.593147635), (+1.24788141, +0.888592005E-2), (+1.49273360, +0.469366908), (+1.24141777, +0.602191865), (+1.08032084, +0.375532568), (+1.10304642, +0.130882204), (+1.40990138, +0.532480419), (+1.69946408, +0.541900635)
313
314atad = getFFTI(getFFTF(data))
315atad
316(+1.45672464, +0.728731394), (+1.44925320, +0.893551111E-1), (+1.96940422, +0.928269029), (+1.34860885, +0.889899492), (+1.98264325, +0.627325594), (+1.77239788, +0.858065009), (+1.42465794, +0.570889533), (+1.11551929, +0.918815076), (+1.54240966, +0.583701611), (+1.19902480, +0.986526757E-1), (+1.48716533, +0.207360595), (+1.91372490, +0.844184637), (+1.01851940, +0.498572469), (+1.12408817, +0.537967443), (+1.06910050, +0.617705822), (+1.79939198, +0.425021946), (+1.95061612, +0.387837410), (+1.15925145, +0.658080459), (+1.88197684, +0.292476118), (+1.49823427, +0.404059142E-1), (+1.46030736, +0.702976048), (+1.66563654, +0.404054374E-1), (+1.60086060, +0.279126376), (+1.72727859, +0.242285967), (+1.80427504, +0.320442259), (+1.59525466, +0.493701965), (+1.62450695, +0.806649923), (+1.74800062, +0.947887599E-1), (+1.56558239, +0.825958133), (+1.82506752, +0.786041915), (+1.40342236, +0.287601501E-1), (+1.93989229, +0.177970335), (+1.41714478, +0.691430569), (+1.28225338, +0.404427946), (+1.90489721, +0.620429397), (+1.68782532, +0.621079326), (+1.07892144, +0.103084981), (+1.35602248, +0.272712409E-1), (+1.37342083, +0.799196184), (+1.66304493, +0.711301982), (+1.58578372, +0.593147635), (+1.24788129, +0.888584182E-2), (+1.49273360, +0.469366938), (+1.24141788, +0.602191567), (+1.08032060, +0.375532508), (+1.10304630, +0.130882144), (+1.40990126, +0.532480478), (+1.69946408, +0.541900516), (+0.596046448E-7, +0.596046448E-7), (+0.596046448E-7, +0.894069672E-7), (+0.119209290E-6, +0.134110451E-6), (+0.417232513E-6, +0.193715096E-6), (+0.00000000, +0.596046448E-7), (-0.596046448E-7, +0.447034836E-7), (+0.238418579E-6, +0.298023224E-7), (+0.357627869E-6, +0.238418579E-6), (+0.178813934E-6, -0.596046448E-7), (+0.298023224E-6, +0.298023224E-7), (+0.596046448E-7, +0.149011612E-6), (+0.476837158E-6, +0.149011612E-6), (+0.119209290E-6, -0.298023224E-7), (+0.178813934E-6, +0.596046448E-7), (-0.596046448E-7, -0.149011612E-7), (+0.00000000, +0.149011612E-7)
317reltol = sqrt(epsilon(1._TKC))
318reltol
319+0.345266977E-3
320isClose(data, atad(1:size(data)), reltol = reltol)
321T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
322call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
323
324lenData = getUnifRand(5, 100)
325lenData
326+28
327data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)
328data
329(+1.1486420015158259, +0.59786268188442293), (+1.2303485675992580, +0.72923142645815731), (+1.5906369620773062, +0.31242960008101417), (+1.9253267178387543, +0.59039432462463060), (+1.7858430729474353, +0.25347400626190364), (+1.3846324998212070, +0.47129073390025567), (+1.0391656725257181, +0.45786514668217282), (+1.4677766865121376, +0.46454638023276584), (+1.8559705772120538, +0.61039830696625763), (+1.4006567403358292, +0.40341110131222546), (+1.7608656401891141, +0.56885367769143325), (+1.6706922151137857, +0.41787087928775601), (+1.4682130765835097, +0.86498065053329520), (+1.7969862636388898, +0.37384283664609430), (+1.8568088028366858, +0.31570368195125398), (+1.4875239943758318, +0.15210578287281573), (+1.5181112723492389, +0.24073744810288233), (+1.1639889950494617, +0.12102745420229755), (+1.9570823840193561, +0.10797998580186519), (+1.2631936086137032, +0.34542167507078236), (+1.6469059932728980, +0.46470408576448452), (+1.1489461472616098, +0.37124742705266101), (+1.2797296797784201, +0.59491226955981025), (+1.1679397835954808, +0.19181530074522324), (+1.2760690419029785, +0.59841648736479713), (+1.9148460187504805, +0.32551647477196632E-1), (+1.3481759092685239, +0.41219328747695716), (+1.1106076187095257, +0.91242973212678380)
330
331atad = getFFTI(getFFTF(data))
332atad
333(+1.1486420015158259, +0.59786268188442293), (+1.2303485675992580, +0.72923142645815742), (+1.5906369620773060, +0.31242960008101417), (+1.9253267178387536, +0.59039432462463082), (+1.7858430729474353, +0.25347400626190381), (+1.3846324998212070, +0.47129073390025578), (+1.0391656725257181, +0.45786514668217271), (+1.4677766865121371, +0.46454638023276579), (+1.8559705772120541, +0.61039830696625763), (+1.4006567403358294, +0.40341110131222546), (+1.7608656401891136, +0.56885367769143325), (+1.6706922151137853, +0.41787087928775607), (+1.4682130765835097, +0.86498065053329509), (+1.7969862636388894, +0.37384283664609391), (+1.8568088028366854, +0.31570368195125387), (+1.4875239943758309, +0.15210578287281554), (+1.5181112723492389, +0.24073744810288222), (+1.1639889950494617, +0.12102745420229749), (+1.9570823840193559, +0.10797998580186517), (+1.2631936086137030, +0.34542167507078225), (+1.6469059932728982, +0.46470408576448435), (+1.1489461472616100, +0.37124742705266067), (+1.2797296797784201, +0.59491226955981025), (+1.1679397835954806, +0.19181530074522318), (+1.2760690419029788, +0.59841648736479713), (+1.9148460187504803, +0.32551647477196605E-1), (+1.3481759092685239, +0.41219328747695710), (+1.1106076187095253, +0.91242973212678313), (+0.33306690738754696E-15, +0.38857805861880479E-15), (+0.55511151231257827E-15, +0.16653345369377348E-15), (+0.66613381477509392E-15, +0.11102230246251565E-15), (+0.33306690738754696E-15, +0.30531133177191805E-15)
334reltol = sqrt(epsilon(1._TKC))
335reltol
336+0.14901161193847656E-7
337isClose(data, atad(1:size(data)), reltol = reltol)
338T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
339call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
340
341lenData = getUnifRand(5, 100)
342lenData
343+21
344data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)
345data
346(+1.70282324938514856072459185687175962, +0.613885278748718952450835306723604353), (+1.49770764783001897119549515010844044, +0.381291001258690727535644102087593553), (+1.15860668616859996229001583371945706, +0.992125886689959691264369056174293793), (+1.21518398156293446923145937604143088, +0.828855693305641288767167328009758115E-2), (+1.43430853318666677690774911937032904, +0.366311721747882994796806350102368912), (+1.32595255646837439514482572583886910, +0.977635151810579741451469309129638183), (+1.74443799702617487654741880067522300, +0.320608845077678840796792854453021256), (+1.32542329854898135135695267124207547, +0.940866553435897832699131172209596098), (+1.59719319805334302106402458418451803, +0.756504663119020691729013083887423968E-1), (+1.55926275667934450228592253661822613, +0.267125131676065030306965362091829826E-2), (+1.68260760491775447471778713174330212, +0.734850110598440734993851770854619208), (+1.98057726678172201109336085419413703, +0.329817322112210484546125829108982872), (+1.99899212898003782567714906457840668, +0.301873913579394543245728936093315252), (+1.42408575396347134123113643870996125, +0.496715864603788442636737158072084429), (+1.49676893618694983545413442317444920, +0.714753712003094816760487014048779589), (+1.17270250751882795271457492052315077, +0.250292318635329161400434704039535600), (+1.97124832102205347562942634956652999, +0.684983267552603072285582844689582532E-1), (+1.40076422270113051405644104734279470, +0.775479296000807002423769069018964006), (+1.74441451484773400726766909468360028, +0.420821498886501978108556080672325170), (+1.15529521649871610305645220878365756, +0.215705988912886081199651105067016069), (+1.06824379035396721447448751220248763, +0.480294488324865748401234542522577183)
347
348atad = getFFTI(getFFTF(data))
349atad
350(+1.70282324938514856072459185687175981, +0.613885278748718952450835306723604353), (+1.49770764783001897119549515010844025, +0.381291001258690727535644102087593649), (+1.15860668616859996229001583371945725, +0.992125886689959691264369056174293600), (+1.21518398156293446923145937604143088, +0.828855693305641288767167328009741263E-2), (+1.43430853318666677690774911937032923, +0.366311721747882994796806350102368768), (+1.32595255646837439514482572583886891, +0.977635151810579741451469309129638086), (+1.74443799702617487654741880067522300, +0.320608845077678840796792854453020968), (+1.32542329854898135135695267124207566, +0.940866553435897832699131172209596098), (+1.59719319805334302106402458418451803, +0.756504663119020691729013083887423968E-1), (+1.55926275667934450228592253661822613, +0.267125131676065030306965362091834641E-2), (+1.68260760491775447471778713174330192, +0.734850110598440734993851770854619208), (+1.98057726678172201109336085419413664, +0.329817322112210484546125829108982824), (+1.99899212898003782567714906457840668, +0.301873913579394543245728936093315011), (+1.42408575396347134123113643870996106, +0.496715864603788442636737158072084332), (+1.49676893618694983545413442317444920, +0.714753712003094816760487014048779685), (+1.17270250751882795271457492052315077, +0.250292318635329161400434704039535792), (+1.97124832102205347562942634956653018, +0.684983267552603072285582844689581088E-1), (+1.40076422270113051405644104734279489, +0.775479296000807002423769069018964006), (+1.74441451484773400726766909468360009, +0.420821498886501978108556080672325363), (+1.15529521649871610305645220878365756, +0.215705988912886081199651105067016261), (+1.06824379035396721447448751220248782, +0.480294488324865748401234542522577231), (+0.192592994438723585305597794258492732E-33, +0.144444745829042688979198345693869549E-33), (-0.288889491658085377958396691387739098E-33, +0.00000000000000000000000000000000000), (+0.962964972193617926527988971292463659E-34, +0.144444745829042688979198345693869549E-33), (+0.192592994438723585305597794258492732E-33, -0.421297175334707842855995174940452851E-34), (+0.962964972193617926527988971292463659E-34, +0.481482486096808963263994485646231830E-34), (+0.192592994438723585305597794258492732E-33, -0.481482486096808963263994485646231830E-34), (+0.962964972193617926527988971292463659E-34, +0.144444745829042688979198345693869549E-33), (+0.288889491658085377958396691387739098E-33, +0.481482486096808963263994485646231830E-34), (+0.00000000000000000000000000000000000, +0.240741243048404481631997242823115915E-34), (+0.00000000000000000000000000000000000, -0.288889491658085377958396691387739098E-33), (+0.192592994438723585305597794258492732E-33, -0.312963615962925826121596415670050689E-33)
351reltol = sqrt(epsilon(1._TKC))
352reltol
353+0.138777878078144567552953958511352539E-16
354isClose(data, atad(1:size(data)), reltol = reltol)
355T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
356call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
357
358lenData = getUnifRand(5, 100)
359lenData
360+86
361data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)
362data
363+1.84010386, +1.46493721, +1.31625402, +1.76192153, +1.65205097, +1.44315672, +1.59625530, +1.21011209, +1.07676315, +1.56794024, +1.19988179, +1.67913985, +1.60031080, +1.28510237, +1.35881221, +1.84165967, +1.07407594, +1.92661572, +1.35860968, +1.07043183, +1.30266094, +1.51980686, +1.52225971, +1.53003335, +1.36581206, +1.01904392, +1.18951821, +1.39307690, +1.68424654, +1.19716501, +1.25949240, +1.47515213, +1.55898380, +1.58958054, +1.24851310, +1.67287135, +1.10178828, +1.52240276, +1.43585825, +1.87522101, +1.08670747, +1.61966860, +1.07667613, +1.82850480, +1.97422361, +1.99332285, +1.87855935, +1.05002344, +1.60680234, +1.66128731, +1.43068194, +1.28770614, +1.51570439, +1.42816925, +1.47157526, +1.23623323, +1.13026094, +1.17021644, +1.31600761, +1.00472975, +1.53843999, +1.64265049, +1.40415788, +1.31866467, +1.74208593, +1.74467874, +1.94358766, +1.45200968, +1.18065238, +1.02485347, +1.01243210, +1.51190352, +1.55815494, +1.34599018, +1.59013391, +1.93926620, +1.06444740, +1.24248052, +1.47437453, +1.60948658, +1.62035370, +1.98529577, +1.80526984, +1.93211925, +1.95231271, +1.10551667
364
365atad = getFFTI(getFFTF(data))
366atad
367+1.84010375, +1.46493685, +1.31625390, +1.76192153, +1.65205073, +1.44315648, +1.59625506, +1.21011186, +1.07676339, +1.56793988, +1.19988191, +1.67913985, +1.60031104, +1.28510213, +1.35881209, +1.84165931, +1.07407606, +1.92661512, +1.35860956, +1.07043195, +1.30266094, +1.51980650, +1.52225947, +1.53003335, +1.36581206, +1.01904380, +1.18951797, +1.39307678, +1.68424642, +1.19716501, +1.25949204, +1.47515213, +1.55898380, +1.58958006, +1.24851298, +1.67287111, +1.10178828, +1.52240252, +1.43585837, +1.87522078, +1.08670759, +1.61966836, +1.07667613, +1.82850480, +1.97422361, +1.99332261, +1.87855959, +1.05002332, +1.60680223, +1.66128683, +1.43068206, +1.28770614, +1.51570415, +1.42816877, +1.47157526, +1.23623300, +1.13026094, +1.17021608, +1.31600726, +1.00472963, +1.53843963, +1.64265037, +1.40415812, +1.31866431, +1.74208581, +1.74467838, +1.94358754, +1.45200956, +1.18065238, +1.02485347, +1.01243258, +1.51190352, +1.55815506, +1.34599006, +1.59013379, +1.93926644, +1.06444740, +1.24248052, +1.47437501, +1.60948682, +1.62035358, +1.98529541, +1.80526984, +1.93211913, +1.95231271, +1.10551679, +0.655651093E-6, +0.178813934E-6, +0.417232513E-6, +0.00000000, +0.298023224E-6, +0.119209290E-6, +0.357627869E-6, +0.178813934E-6, +0.357627869E-6, +0.119209290E-6, +0.00000000, -0.596046448E-7, +0.119209290E-6, +0.417232513E-6, +0.119209290E-6, +0.536441803E-6, +0.119209290E-6, +0.476837158E-6, +0.238418579E-6, +0.00000000, +0.178813934E-6, +0.298023224E-6, +0.238418579E-6, +0.238418579E-6, +0.417232513E-6, +0.357627869E-6, +0.417232513E-6, +0.00000000, +0.476837158E-6, +0.238418579E-6, +0.178813934E-6, +0.298023224E-6, +0.596046448E-7, +0.178813934E-6, +0.417232513E-6, +0.596046448E-7, +0.476837158E-6, +0.119209290E-6, +0.357627869E-6, +0.178813934E-6, +0.596046448E-7, -0.596046448E-7
368reltol = sqrt(epsilon(1._TKC))
369reltol
370+0.345266977E-3
371isClose(data, atad(1:size(data)), reltol = reltol)
372T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
373call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
374
375lenData = getUnifRand(5, 100)
376lenData
377+70
378data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)
379data
380+1.1352655610047511, +1.7472730349020114, +1.1373155945494453, +1.8095004455048618, +1.7803051305885407, +1.6360183786485920, +1.6150826509705822, +1.2085504275369501, +1.2426148964643531, +1.4008740053911053, +1.9485280514948928, +1.3153534832535363, +1.6621324893686975, +1.6216001816822361, +1.1405987568422793, +1.1373525629464258, +1.9783718365122143, +1.8042546062101079, +1.3356732548936601, +1.6865160968462676, +1.5536986557614436, +1.0760849269047057, +1.6783487374408570, +1.5696886800522791, +1.1020927115059354, +1.8868378605190823, +1.1009091206891992, +1.2588166222058388, +1.1098666269114186, +1.8099063398896038, +1.2895303328118144, +1.0818402139037593, +1.1425602314099543, +1.3393979420323592, +1.7505607570637536, +1.1614648179538647, +1.7843265221168183, +1.3905216623162562, +1.8322952945361597, +1.3046821022111614, +1.3511350364128591, +1.7286834382000758, +1.0798876457513491, +1.3805014139693228, +1.3305217955041950, +1.7777360523651486, +1.3316112598812468, +1.1613667582608609, +1.8853822848195179, +1.6320162619597005, +1.3506187880820906, +1.5852734718229056, +1.1442473556661821, +1.7645589353957556, +1.9543577785627650, +1.5974646772404744, +1.0299982408071768, +1.5042043523085749, +1.4083269173472712, +1.2148273331039161, +1.1301169138028697, +1.8605601443563136, +1.2225901931050496, +1.7315557347105837, +1.1296267880426010, +1.8345815739505436, +1.6917437671632567, +1.9165126650854276, +1.7667834758354968, +1.0194728262413011
381
382atad = getFFTI(getFFTF(data))
383atad
384+1.1352655610047508, +1.7472730349020114, +1.1373155945494455, +1.8095004455048629, +1.7803051305885398, +1.6360183786485920, +1.6150826509705816, +1.2085504275369505, +1.2426148964643531, +1.4008740053911053, +1.9485280514948931, +1.3153534832535367, +1.6621324893686973, +1.6216001816822359, +1.1405987568422786, +1.1373525629464258, +1.9783718365122138, +1.8042546062101081, +1.3356732548936598, +1.6865160968462680, +1.5536986557614427, +1.0760849269047059, +1.6783487374408561, +1.5696886800522796, +1.1020927115059349, +1.8868378605190825, +1.1009091206891992, +1.2588166222058392, +1.1098666269114181, +1.8099063398896038, +1.2895303328118142, +1.0818402139037597, +1.1425602314099543, +1.3393979420323590, +1.7505607570637536, +1.1614648179538647, +1.7843265221168183, +1.3905216623162560, +1.8322952945361592, +1.3046821022111612, +1.3511350364128591, +1.7286834382000760, +1.0798876457513489, +1.3805014139693232, +1.3305217955041950, +1.7777360523651484, +1.3316112598812468, +1.1613667582608609, +1.8853822848195181, +1.6320162619597001, +1.3506187880820906, +1.5852734718229053, +1.1442473556661825, +1.7645589353957547, +1.9543577785627648, +1.5974646772404735, +1.0299982408071766, +1.5042043523085744, +1.4083269173472708, +1.2148273331039161, +1.1301169138028699, +1.8605601443563131, +1.2225901931050498, +1.7315557347105832, +1.1296267880426007, +1.8345815739505436, +1.6917437671632565, +1.9165126650854278, +1.7667834758354970, +1.0194728262413011, +0.22204460492503131E-15, -0.44408920985006262E-15, -0.33306690738754696E-15, -0.22204460492503131E-15, -0.22204460492503131E-15, -0.11102230246251565E-15, +0.0000000000000000, +0.11102230246251565E-15, +0.22204460492503131E-15, -0.22204460492503131E-15, -0.11102230246251565E-15, -0.22204460492503131E-15, +0.22204460492503131E-15, +0.0000000000000000, +0.77715611723760958E-15, +0.44408920985006262E-15, +0.55511151231257827E-15, -0.11102230246251565E-15, +0.11102230246251565E-15, +0.0000000000000000, +0.33306690738754696E-15, -0.11102230246251565E-15, +0.44408920985006262E-15, +0.11102230246251565E-15, +0.33306690738754696E-15, -0.11102230246251565E-15, -0.22204460492503131E-15, -0.22204460492503131E-15, +0.0000000000000000, +0.33306690738754696E-15, -0.22204460492503131E-15, +0.66613381477509392E-15, -0.11102230246251565E-15, +0.66613381477509392E-15, -0.33306690738754696E-15, -0.11102230246251565E-15, +0.22204460492503131E-15, -0.22204460492503131E-15, -0.55511151231257827E-15, +0.44408920985006262E-15, -0.44408920985006262E-15, +0.22204460492503131E-15, -0.11102230246251565E-15, +0.44408920985006262E-15, -0.22204460492503131E-15, +0.66613381477509392E-15, -0.22204460492503131E-15, +0.99920072216264089E-15, -0.55511151231257827E-15, +0.11102230246251565E-14, +0.0000000000000000, +0.44408920985006262E-15, +0.22204460492503131E-15, +0.33306690738754696E-15, -0.88817841970012523E-15, +0.99920072216264089E-15, -0.22204460492503131E-15, +0.77715611723760958E-15
385reltol = sqrt(epsilon(1._TKC))
386reltol
387+0.14901161193847656E-7
388isClose(data, atad(1:size(data)), reltol = reltol)
389T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
390call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
391
392lenData = getUnifRand(5, 100)
393lenData
394+24
395data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)
396data
397+1.16926147524087910113790709383237551, +1.25521480046414901554815433497578100, +1.70618222654403091717975626594844510, +1.31924570515969619769854923529526053, +1.92325121696549340493235137620590670, +1.44601782495840164895270624425288937, +1.73032185070268464353205139138060897, +1.75750861064684672214174123852125817, +1.31001023696076560821313201718236099, +1.30895404372937442191228316435913731, +1.28107053503550275659958138112644213, +1.66713713190083379868374659945747134, +1.99009479149285529369185563662453281, +1.65315055191255787732011514905453661, +1.46003780747737544249671922725588051, +1.83168567309648562967520399011678251, +1.41228851006620516118532402394488382, +1.31028230916411158675140604554093990, +1.94209356788101731143123387867859170, +1.19620610695686664217100699071258943, +1.05781379532385144318835453792200270, +1.87775944119247331617910447777009415, +1.33986677941595125155638358358777102, +1.24819654238070648682449534642173826
398
399atad = getFFTI(getFFTF(data))
400atad
401+1.16926147524087910113790709383237551, +1.25521480046414901554815433497578061, +1.70618222654403091717975626594844567, +1.31924570515969619769854923529526072, +1.92325121696549340493235137620590632, +1.44601782495840164895270624425288956, +1.73032185070268464353205139138060935, +1.75750861064684672214174123852125874, +1.31001023696076560821313201718236099, +1.30895404372937442191228316435913731, +1.28107053503550275659958138112644251, +1.66713713190083379868374659945747173, +1.99009479149285529369185563662453319, +1.65315055191255787732011514905453661, +1.46003780747737544249671922725588090, +1.83168567309648562967520399011678270, +1.41228851006620516118532402394488382, +1.31028230916411158675140604554093990, +1.94209356788101731143123387867859189, +1.19620610695686664217100699071258981, +1.05781379532385144318835453792200250, +1.87775944119247331617910447777009415, +1.33986677941595125155638358358777102, +1.24819654238070648682449534642173865, -0.288889491658085377958396691387739098E-33, -0.192592994438723585305597794258492732E-33, -0.288889491658085377958396691387739098E-33, -0.385185988877447170611195588516985464E-33, -0.481482486096808963263994485646231830E-33, -0.962964972193617926527988971292463659E-34, +0.00000000000000000000000000000000000, -0.962964972193617926527988971292463659E-34
402reltol = sqrt(epsilon(1._TKC))
403reltol
404+0.138777878078144567552953958511352539E-16
405isClose(data, atad(1:size(data)), reltol = reltol)
406T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
407call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
408
409lenData = getUnifRand(5, 100)
410lenData
411+11
412data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)
413data
414(+1.34490705, +0.284426868), (+1.05331516, +0.376437187), (+1.02344155, +0.262036026), (+1.36186671, +0.658701897), (+1.50601256, +0.767264366), (+1.66414332, +0.569404542), (+1.84905839, +0.482905507E-1), (+1.22068942, +0.753313303E-2), (+1.42556763, +0.464010656), (+1.62540698, +0.194472134), (+1.79743314, +0.622156262E-1)
415
416atad = getFFTI(getFFTF(data))
417atad
418(+1.34490705, +0.284426868), (+1.05331528, +0.376437277), (+1.02344167, +0.262036085), (+1.36186671, +0.658701897), (+1.50601268, +0.767264247), (+1.66414332, +0.569404364), (+1.84905839, +0.482904837E-1), (+1.22068942, +0.753299892E-2), (+1.42556763, +0.464010656), (+1.62540686, +0.194472224), (+1.79743302, +0.622155517E-1), (+0.596046448E-7, -0.119209290E-6), (+0.00000000, +0.149011612E-6), (-0.596046448E-7, +0.894069672E-7), (+0.178813934E-6, +0.111758709E-6), (+0.119209290E-6, +0.745058060E-7)
419reltol = sqrt(epsilon(1._TKC))
420reltol
421+0.345266977E-3
422isClose(data, atad(1:size(data)), reltol = reltol)
423T, T, T, T, T, T, T, T, T, T, T
424call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
425
426lenData = getUnifRand(5, 100)
427lenData
428+57
429data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)
430data
431(+1.6340849452424764, +0.99611651438547300), (+1.0575996816733753, +0.65946062087102575), (+1.7178681596405752, +0.97833236091773168), (+1.1924777191232305, +0.93919499976953236), (+1.6482147250398129, +0.69387333360142689), (+1.1932253975738996, +0.70252624954514553), (+1.8568536310619230, +0.92253930077405977), (+1.5767601755012639, +0.66775109743725525), (+1.4408102596632133, +0.15240309299623911), (+1.2730399969709167, +0.15459612825590829), (+1.4161565581384365, +0.81098599921948888), (+1.9865493600806794, +0.34887549215689384), (+1.7814915316928057, +0.72194836842050725), (+1.4005088592977009, +0.63996091780887865), (+1.2167320304222848, +0.15789635424483184), (+1.2906569200684597, +0.61105429488017338E-1), (+1.3049695764514495, +0.44862325299054928), (+1.7563355703973631, +0.39539050524317920), (+1.7658575578737545, +0.35182848873312822), (+1.9871104370707864, +0.69188651187161132), (+1.1204351553881398, +0.36779204809901500), (+1.7605689749023576, +0.54884780602509897), (+1.7187474650597960, +0.14089491467495974), (+1.3705289999016250, +0.76920179704166647E-1), (+1.8750467446443411, +0.47502742727015468), (+1.3663667916347890, +0.72818043080396300E-1), (+1.1854226624546613, +0.22327935428895773E-1), (+1.1397427231450088, +0.30295894566683079), (+1.8437269292997516, +0.32860142044942586), (+1.3165188909392622, +0.77865347810508034), (+1.6077870248292634, +0.72507885361577973), (+1.1986060195165336, +0.66189497219979510), (+1.6250405631189597, +0.13906000151793663E-1), (+1.7098821225173659, +0.22464349969736941), (+1.5248292386525992, +0.44971017984887696), (+1.4790071042799413, +0.35810494074767107E-1), (+1.5135075559668927, +0.90661235705796261), (+1.4514834020659539, +0.11823845840310376), (+1.2382945942286168, +0.38783067449889008), (+1.2779759971515618, +0.56281127092939409), (+1.4935630004665104, +0.95494122808594650), (+1.4845466354116867, +0.60514759376489313E-1), (+1.8564049720114426, +0.69941145589638110), (+1.7668116391210136, +0.76485360472680197), (+1.9820084620755543, +0.16971365641921499), (+1.3302053864222367, +0.27491222433355345), (+1.8629327019348620, +0.42710556106101760), (+1.2530775798359137, +0.79732870996553318), (+1.2981165496901534, +0.59768277257132874), (+1.2859992344714990, +0.40865001143109558), (+1.1981186139907456, +0.49776199503542440), (+1.4601213114574900, +0.64481885097273750), (+1.8215798719449263, +0.29087658958398088), (+1.3185179008763019, +0.87467022449618981), (+1.8440906885014166, +0.30043811629872963), (+1.3020480677270396, +0.31820272562451590), (+1.0687808187990899, +0.77809543089361943)
432
433atad = getFFTI(getFFTF(data))
434atad
435(+1.6340849452424762, +0.99611651438547288), (+1.0575996816733761, +0.65946062087102586), (+1.7178681596405747, +0.97833236091773168), (+1.1924777191232303, +0.93919499976953258), (+1.6482147250398131, +0.69387333360142678), (+1.1932253975739000, +0.70252624954514553), (+1.8568536310619226, +0.92253930077405943), (+1.5767601755012637, +0.66775109743725547), (+1.4408102596632133, +0.15240309299623911), (+1.2730399969709167, +0.15459612825590846), (+1.4161565581384359, +0.81098599921948877), (+1.9865493600806789, +0.34887549215689423), (+1.7814915316928057, +0.72194836842050747), (+1.4005088592977009, +0.63996091780887898), (+1.2167320304222842, +0.15789635424483245), (+1.2906569200684594, +0.61105429488017782E-1), (+1.3049695764514495, +0.44862325299054906), (+1.7563355703973633, +0.39539050524317926), (+1.7658575578737543, +0.35182848873312822), (+1.9871104370707862, +0.69188651187161121), (+1.1204351553881402, +0.36779204809901500), (+1.7605689749023576, +0.54884780602509897), (+1.7187474650597958, +0.14089491467495974), (+1.3705289999016250, +0.76920179704166480E-1), (+1.8750467446443408, +0.47502742727015462), (+1.3663667916347892, +0.72818043080396216E-1), (+1.1854226624546613, +0.22327935428895884E-1), (+1.1397427231450088, +0.30295894566683068), (+1.8437269292997520, +0.32860142044942553), (+1.3165188909392627, +0.77865347810508012), (+1.6077870248292629, +0.72507885361577940), (+1.1986060195165336, +0.66189497219979487), (+1.6250405631189595, +0.13906000151793663E-1), (+1.7098821225173664, +0.22464349969736946), (+1.5248292386525990, +0.44971017984887673), (+1.4790071042799411, +0.35810494074767052E-1), (+1.5135075559668929, +0.90661235705796261), (+1.4514834020659544, +0.11823845840310365), (+1.2382945942286165, +0.38783067449889014), (+1.2779759971515616, +0.56281127092939409), (+1.4935630004665101, +0.95494122808594650), (+1.4845466354116867, +0.60514759376489195E-1), (+1.8564049720114415, +0.69941145589638087), (+1.7668116391210129, +0.76485360472680175), (+1.9820084620755543, +0.16971365641921499), (+1.3302053864222367, +0.27491222433355322), (+1.8629327019348616, +0.42710556106101721), (+1.2530775798359133, +0.79732870996553284), (+1.2981165496901537, +0.59768277257132862), (+1.2859992344714992, +0.40865001143109553), (+1.1981186139907454, +0.49776199503542451), (+1.4601213114574896, +0.64481885097273739), (+1.8215798719449268, +0.29087658958398055), (+1.3185179008763019, +0.87467022449618992), (+1.8440906885014161, +0.30043811629872946), (+1.3020480677270398, +0.31820272562451563), (+1.0687808187990899, +0.77809543089361943), (+0.22204460492503131E-15, -0.83266726846886741E-16), (+0.33306690738754696E-15, +0.11102230246251565E-15), (+0.77715611723760958E-15, +0.11102230246251565E-15), (+0.55511151231257827E-15, +0.13877787807814457E-15), (+0.55511151231257827E-15, +0.0000000000000000), (+0.22204460492503131E-15, +0.55511151231257827E-15), (+0.22204460492503131E-15, +0.38857805861880479E-15)
436reltol = sqrt(epsilon(1._TKC))
437reltol
438+0.14901161193847656E-7
439isClose(data, atad(1:size(data)), reltol = reltol)
440T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
441call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
442
443lenData = getUnifRand(5, 100)
444lenData
445+70
446data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)
447data
448(+1.26837944767727377972164916756431501, +0.224202013050302856279812508808306323), (+1.67997137217720622531713052358970264, +0.882109443680506951048940412613508190), (+1.88744849328171476514414461806750021, +0.563916524139196498005961468207608402), (+1.60591352085707087643941554245546377, +0.815471159747022787439934700720026211), (+1.84995437568719925034750300471231285, +0.896642816357278144681381779866874006), (+1.46638976000527622032254770928765796, +0.269307790704445231378947602387550007), (+1.39211972140659737386653919208898881, +0.543492370353701824401753338974946470), (+1.39446658270138492609753421573101211, +0.926176463979282313318879091228823545), (+1.97727770800571922024055279551017857, +0.426416888791472478302888858496136170), (+1.66013964091905691962375087185792194, +0.558031961621945744693456673109414553), (+1.67242142788655529516722259167419456, +0.506423461836749945640110910570659983), (+1.91348482763258525714668086760516034, +0.894971913066754753505047640479104694), (+1.76687100809807729107870330655421436, +0.284490141554714270804605875940832344E-1), (+1.60072202190359593176226320734658102, +0.135870198948811765368842286328637385), (+1.11343447117126238940708935353152001, +0.160488362912087241099448468754657726), (+1.03596407691454844547709437116324391, +0.592602478134951495462376886840279585), (+1.10623194506188877494194739101632342, +0.579571855131455563395221368739711452), (+1.12495472101432829929135644076701275, +0.620400026782483205054195697571901487), (+1.52933170863854239416394496905871173, +0.564049842093124235602062476316287418), (+1.84923326421503599982921515936964403, +0.234260552738871293772236292108009277E-1), (+1.97843160103598365039630570410681934, +0.815742002210243171810231106888979842), (+1.14381737597527472288288365411905564, +0.141553570285592352864173644534840154), (+1.38598135521868035241265085440998065, +0.436503562217877223317714477105084526), (+1.10062634886524950613952499594126996, +0.465388991537962556215809942076771809), (+1.54596889929208624071921937795336275, +0.232515907680199027977276622506065060), (+1.48520285704868416595382479382997570, +0.230172276251341836983705145837956840), (+1.25275338330180428607909687012941838, +0.406913500332252550487893262476073265), (+1.34885851372016625382181511052267902, +0.842818881826020044023345382195816297), (+1.65978384968726437363553775863506344, +0.254681350445595215823887847328470847), (+1.36376383857718172817852203321863494, +0.691850387604594024488947304230270026), (+1.32883031018728330831144354074230334, +0.582338126623608387699005313903165974), (+1.21088024567469413334107431116347937, +0.311242498712415074136353388955951874), (+1.50062386286594488586836210652951975, +0.201417774269924276887226428542495949), (+1.71420553190409974421458482792570097, +0.551512892839461850030421085122113695), (+1.60670754047239476411450306986881268, +0.484998634160397996858526949411277321), (+1.81056778602895635687577133215289617, +0.161244081297068623890971339474227347), (+1.41336118064285867561549279624561231, +0.107676313488437043278984274181291685), (+1.60410427899471986174775723836653513, +0.253286309017776020410704979332265962), (+1.34316402951222551714578901731998891, +0.485034138965665876074119710988422154), (+1.25811882522826851502623968504654476, +0.599059184109337564196577999847117412E-1), (+1.90087310090970106762849578284134587, +0.439866852176589186758269241258740968), (+1.38456954153409936866698769967721296, +0.780711501916671684368964553865384894), (+1.19048292492462369884384625845102891, +0.635707447514750092659730862146414890), (+1.35246211149149501009958170121008350, +0.308284896180771571091927154730559999), (+1.80435925786702489130223523923533213, +0.730042965140447652189613893878137603), (+1.53328158717413554065331606255975934, +0.537779384812270739456508617299134193), (+1.30075077384411757987905686478940335, +0.858047094644518046718450122277559890), (+1.04359370646096836456283122867177823, +0.932003734491691418994930493453889382), (+1.21973124817262202379328387199306941, +0.561751704008419217509606728049765271), (+1.57122741999572986165323706655898512, +0.796159807353259916574595449240604754), (+1.70524096163372836217851241109030516, +0.278136898033980829414899965494125732), (+1.83363319412727922973226187093326897, +0.946245276293896105642257503579626435), (+1.33499866044904733950712857553794891, +0.481861376134701119133893792060973443), (+1.53097575211259595008993395324538404, +0.257292874110157630631522448045162273), (+1.52987078741655174131096388813283642, +0.652301249647869091753756494066712424), (+1.24529717966933979706015287284459573, +0.661921810966762923840139957875887550), (+1.82395242638094438593030442448442425, +0.641651245441924171649311027268057736), (+1.27066266695673263978300620917820533, +0.247186145716799353303833055035205518), (+1.51766702776043681737557573200457607, +0.984479400698485471062106249523791002), (+1.58711711452734145456026476237946726, +0.284401464818379340878221351676725129), (+1.53671003681225708935440785206127616, +0.717151345363068877490091299936856099), (+1.43264348915640744372225575472137189, +0.772242263302111115302656756581576077), (+1.86118334449092986878269442383995114, +0.598608774928335820007125698267569514), (+1.63099897835389499531130781376401958, +0.607305296511959440741506968975150672), (+1.57110257879860345867901127119179221, +0.582271590623275266522449016891257411), (+1.41249512744671937599125968482367387, +0.303240401720766168024694929617354176E-1), (+1.72404293598194611627180142172042985, +0.382466959480816348919536289208091302), (+1.09279110846218205542778709418821711, +0.948884895360421132962046201352911244), (+1.87085150209968949491897580791424890, +0.815589978580069613381723762761511674), (+1.84752526686758712443644109079158358, +0.688390308510881461546472726987076912)
449
450atad = getFFTI(getFFTF(data))
451atad
452(+1.26837944767727377972164916756431481, +0.224202013050302856279812508808306372), (+1.67997137217720622531713052358970264, +0.882109443680506951048940412613508093), (+1.88744849328171476514414461806750059, +0.563916524139196498005961468207608402), (+1.60591352085707087643941554245546377, +0.815471159747022787439934700720026115), (+1.84995437568719925034750300471231265, +0.896642816357278144681381779866873910), (+1.46638976000527622032254770928765796, +0.269307790704445231378947602387549621), (+1.39211972140659737386653919208898919, +0.543492370353701824401753338974946566), (+1.39446658270138492609753421573101230, +0.926176463979282313318879091228823256), (+1.97727770800571922024055279551017876, +0.426416888791472478302888858496136362), (+1.66013964091905691962375087185792232, +0.558031961621945744693456673109414553), (+1.67242142788655529516722259167419495, +0.506423461836749945640110910570660465), (+1.91348482763258525714668086760516092, +0.894971913066754753505047640479104983), (+1.76687100809807729107870330655421475, +0.284490141554714270804605875940830899E-1), (+1.60072202190359593176226320734658141, +0.135870198948811765368842286328637216), (+1.11343447117126238940708935353152059, +0.160488362912087241099448468754657702), (+1.03596407691454844547709437116324429, +0.592602478134951495462376886840279777), (+1.10623194506188877494194739101632362, +0.579571855131455563395221368739711548), (+1.12495472101432829929135644076701275, +0.620400026782483205054195697571901487), (+1.52933170863854239416394496905871212, +0.564049842093124235602062476316287611), (+1.84923326421503599982921515936964441, +0.234260552738871293772236292108008554E-1), (+1.97843160103598365039630570410681934, +0.815742002210243171810231106888979553), (+1.14381737597527472288288365411905583, +0.141553570285592352864173644534840154), (+1.38598135521868035241265085440998065, +0.436503562217877223317714477105084430), (+1.10062634886524950613952499594127015, +0.465388991537962556215809942076771616), (+1.54596889929208624071921937795336294, +0.232515907680199027977276622506065060), (+1.48520285704868416595382479382997589, +0.230172276251341836983705145837957033), (+1.25275338330180428607909687012941819, +0.406913500332252550487893262476073409), (+1.34885851372016625382181511052267959, +0.842818881826020044023345382195816586), (+1.65978384968726437363553775863506344, +0.254681350445595215823887847328470847), (+1.36376383857718172817852203321863514, +0.691850387604594024488947304230270219), (+1.32883031018728330831144354074230373, +0.582338126623608387699005313903166167), (+1.21088024567469413334107431116347956, +0.311242498712415074136353388955951922), (+1.50062386286594488586836210652951994, +0.201417774269924276887226428542495997), (+1.71420553190409974421458482792570135, +0.551512892839461850030421085122113791), (+1.60670754047239476411450306986881307, +0.484998634160397996858526949411277514), (+1.81056778602895635687577133215289656, +0.161244081297068623890971339474227468), (+1.41336118064285867561549279624561231, +0.107676313488437043278984274181291564), (+1.60410427899471986174775723836653513, +0.253286309017776020410704979332265962), (+1.34316402951222551714578901731998910, +0.485034138965665876074119710988422154), (+1.25811882522826851502623968504654514, +0.599059184109337564196577999847115246E-1), (+1.90087310090970106762849578284134606, +0.439866852176589186758269241258741353), (+1.38456954153409936866698769967721296, +0.780711501916671684368964553865385375), (+1.19048292492462369884384625845102891, +0.635707447514750092659730862146415082), (+1.35246211149149501009958170121008369, +0.308284896180771571091927154730560143), (+1.80435925786702489130223523923533252, +0.730042965140447652189613893878137892), (+1.53328158717413554065331606255975973, +0.537779384812270739456508617299134481), (+1.30075077384411757987905686478940374, +0.858047094644518046718450122277560179), (+1.04359370646096836456283122867177862, +0.932003734491691418994930493453889767), (+1.21973124817262202379328387199306961, +0.561751704008419217509606728049765271), (+1.57122741999572986165323706655898531, +0.796159807353259916574595449240604850), (+1.70524096163372836217851241109030555, +0.278136898033980829414899965494125732), (+1.83363319412727922973226187093326935, +0.946245276293896105642257503579626628), (+1.33499866044904733950712857553794910, +0.481861376134701119133893792060973491), (+1.53097575211259595008993395324538423, +0.257292874110157630631522448045162176), (+1.52987078741655174131096388813283661, +0.652301249647869091753756494066712520), (+1.24529717966933979706015287284459612, +0.661921810966762923840139957875887743), (+1.82395242638094438593030442448442445, +0.641651245441924171649311027268057929), (+1.27066266695673263978300620917820553, +0.247186145716799353303833055035205711), (+1.51766702776043681737557573200457607, +0.984479400698485471062106249523791387), (+1.58711711452734145456026476237946765, +0.284401464818379340878221351676725370), (+1.53671003681225708935440785206127616, +0.717151345363068877490091299936856292), (+1.43264348915640744372225575472137208, +0.772242263302111115302656756581576655), (+1.86118334449092986878269442383995172, +0.598608774928335820007125698267569899), (+1.63099897835389499531130781376402035, +0.607305296511959440741506968975150960), (+1.57110257879860345867901127119179221, +0.582271590623275266522449016891257411), (+1.41249512744671937599125968482367387, +0.303240401720766168024694929617353213E-1), (+1.72404293598194611627180142172042985, +0.382466959480816348919536289208091399), (+1.09279110846218205542778709418821691, +0.948884895360421132962046201352911437), (+1.87085150209968949491897580791424910, +0.815589978580069613381723762761511770), (+1.84752526686758712443644109079158397, +0.688390308510881461546472726987077200), (-0.962964972193617926527988971292463659E-34, +0.144444745829042688979198345693869549E-33), (-0.385185988877447170611195588516985464E-33, +0.337037740267766274284796139952362281E-33), (-0.192592994438723585305597794258492732E-33, -0.192592994438723585305597794258492732E-33), (-0.674075480535532548569592279904724561E-33, -0.192592994438723585305597794258492732E-33), (-0.288889491658085377958396691387739098E-33, -0.337037740267766274284796139952362281E-33), (-0.962964972193617926527988971292463659E-33, +0.962964972193617926527988971292463659E-34), (-0.577778983316170755916793382775478196E-33, +0.144444745829042688979198345693869549E-33), (-0.674075480535532548569592279904724561E-33, +0.216667118743564033468797518540804323E-33), (-0.192592994438723585305597794258492732E-33, -0.722223729145213444895991728469347744E-34), (-0.577778983316170755916793382775478196E-33, -0.144444745829042688979198345693869549E-33), (-0.192592994438723585305597794258492732E-33, +0.00000000000000000000000000000000000), (-0.288889491658085377958396691387739098E-33, +0.192592994438723585305597794258492732E-33), (-0.192592994438723585305597794258492732E-33, -0.192592994438723585305597794258492732E-33), (-0.385185988877447170611195588516985464E-33, +0.120370621524202240815998621411557957E-33), (+0.00000000000000000000000000000000000, +0.288889491658085377958396691387739098E-33), (-0.385185988877447170611195588516985464E-33, +0.481482486096808963263994485646231830E-34), (-0.962964972193617926527988971292463659E-34, +0.962964972193617926527988971292463659E-34), (-0.385185988877447170611195588516985464E-33, +0.120370621524202240815998621411557957E-33), (-0.962964972193617926527988971292463659E-34, +0.120370621524202240815998621411557957E-34), (-0.192592994438723585305597794258492732E-33, -0.144444745829042688979198345693869549E-33), (-0.962964972193617926527988971292463659E-34, -0.192592994438723585305597794258492732E-33), (-0.866668474974256133875190074163217293E-33, -0.962964972193617926527988971292463659E-34), (-0.288889491658085377958396691387739098E-33, +0.722223729145213444895991728469347744E-34), (-0.577778983316170755916793382775478196E-33, -0.962964972193617926527988971292463659E-34), (-0.962964972193617926527988971292463659E-34, -0.962964972193617926527988971292463659E-34), (-0.577778983316170755916793382775478196E-33, +0.481482486096808963263994485646231830E-34), (-0.385185988877447170611195588516985464E-33, -0.481482486096808963263994485646231830E-34), (-0.481482486096808963263994485646231830E-33, -0.962964972193617926527988971292463659E-34), (+0.288889491658085377958396691387739098E-33, -0.120370621524202240815998621411557957E-33), (-0.577778983316170755916793382775478196E-33, -0.240741243048404481631997242823115915E-34), (-0.288889491658085377958396691387739098E-33, +0.120370621524202240815998621411557957E-33), (-0.481482486096808963263994485646231830E-33, -0.481482486096808963263994485646231830E-34), (+0.00000000000000000000000000000000000, +0.240741243048404481631997242823115915E-34), (-0.577778983316170755916793382775478196E-33, +0.240741243048404481631997242823115915E-34), (-0.192592994438723585305597794258492732E-33, -0.385185988877447170611195588516985464E-33), (-0.288889491658085377958396691387739098E-33, -0.481482486096808963263994485646231830E-33), (+0.962964972193617926527988971292463659E-34, -0.192592994438723585305597794258492732E-33), (-0.481482486096808963263994485646231830E-33, -0.240741243048404481631997242823115915E-33), (-0.577778983316170755916793382775478196E-33, -0.337037740267766274284796139952362281E-33), (-0.674075480535532548569592279904724561E-33, -0.385185988877447170611195588516985464E-33), (+0.00000000000000000000000000000000000, -0.288889491658085377958396691387739098E-33), (-0.481482486096808963263994485646231830E-33, -0.288889491658085377958396691387739098E-33), (-0.192592994438723585305597794258492732E-33, +0.00000000000000000000000000000000000), (-0.288889491658085377958396691387739098E-33, -0.144444745829042688979198345693869549E-33), (-0.962964972193617926527988971292463659E-34, +0.722223729145213444895991728469347744E-34), (-0.385185988877447170611195588516985464E-33, -0.962964972193617926527988971292463659E-34), (-0.481482486096808963263994485646231830E-33, +0.962964972193617926527988971292463659E-34), (-0.577778983316170755916793382775478196E-33, -0.722223729145213444895991728469347744E-34), (-0.192592994438723585305597794258492732E-33, +0.144444745829042688979198345693869549E-33), (-0.481482486096808963263994485646231830E-33, -0.240741243048404481631997242823115915E-33), (-0.192592994438723585305597794258492732E-33, -0.144444745829042688979198345693869549E-33), (-0.385185988877447170611195588516985464E-33, -0.373148926725026946529595726375829668E-33), (-0.962964972193617926527988971292463659E-34, -0.288889491658085377958396691387739098E-33), (-0.481482486096808963263994485646231830E-33, -0.433334237487128066937595037081608647E-33), (-0.385185988877447170611195588516985464E-33, -0.288889491658085377958396691387739098E-33), (-0.577778983316170755916793382775478196E-33, -0.674075480535532548569592279904724561E-33), (+0.00000000000000000000000000000000000, -0.385185988877447170611195588516985464E-33), (-0.674075480535532548569592279904724561E-33, -0.433334237487128066937595037081608647E-33)
453reltol = sqrt(epsilon(1._TKC))
454reltol
455+0.138777878078144567552953958511352539E-16
456isClose(data, atad(1:size(data)), reltol = reltol)
457T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
458call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
459
460lenData = getUnifRand(5, 100)
461lenData
462+58
463data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)
464data
465+1.95596182, +1.55676532, +1.62794292, +1.97508144, +1.96192241, +1.11594462, +1.65255380, +1.98447013, +1.77818084, +1.08059227, +1.43135738, +1.32936335, +1.67157578, +1.19933987, +1.40883708, +1.21579993, +1.60586619, +1.99213052, +1.94019079, +1.96914935, +1.58955264, +1.80044878, +1.28014851, +1.07605970, +1.84373212, +1.26664257, +1.58076417, +1.44637966, +1.49726844, +1.35580122, +1.17037272, +1.67881513, +1.16585004, +1.85558927, +1.40938020, +1.92671704, +1.12537384, +1.28519106, +1.16317368, +1.89973724, +1.98553216, +1.16026163, +1.73166454, +1.40821290, +1.50767422, +1.83984280, +1.36887300, +1.88035393, +1.84553540, +1.59265327, +1.00514364, +1.17309999, +1.67681336, +1.21699798, +1.97270942, +1.15094209, +1.76702690, +1.35386837
466
467atad = getFFTI(getFFTF(data))
468atad
469+1.95596182, +1.55676544, +1.62794292, +1.97508132, +1.96192265, +1.11594474, +1.65255380, +1.98447001, +1.77818060, +1.08059227, +1.43135726, +1.32936347, +1.67157590, +1.19933987, +1.40883708, +1.21579993, +1.60586619, +1.99213064, +1.94019079, +1.96914959, +1.58955276, +1.80044889, +1.28014839, +1.07605958, +1.84373212, +1.26664281, +1.58076406, +1.44637990, +1.49726832, +1.35580134, +1.17037261, +1.67881513, +1.16585004, +1.85558951, +1.40938008, +1.92671716, +1.12537408, +1.28519118, +1.16317344, +1.89973724, +1.98553205, +1.16026175, +1.73166454, +1.40821302, +1.50767434, +1.83984280, +1.36887264, +1.88035381, +1.84553552, +1.59265339, +1.00514364, +1.17310023, +1.67681348, +1.21699810, +1.97270930, +1.15094209, +1.76702690, +1.35386848, +0.00000000, +0.655651093E-6, +0.357627869E-6, +0.238418579E-6, +0.119209290E-6, +0.119209290E-6
470reltol = sqrt(epsilon(1._TKC))
471reltol
472+0.345266977E-3
473isClose(data, atad(1:size(data)), reltol = reltol)
474T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
475call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
476
477lenData = getUnifRand(5, 100)
478lenData
479+35
480data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)
481data
482+1.5784755977587674, +1.2772926303969978, +1.7153502186992342, +1.7577229890416888, +1.9087868317926964, +1.5457881501427551, +1.5204493039241749, +1.5999339564705406, +1.0878415959556076, +1.5836013001439833, +1.2419548604824897, +1.1234361520304039, +1.0627891718093494, +1.3514077608142938, +1.6180942234425153, +1.1246523820150198, +1.1185442122372731, +1.4492977582366726, +1.9150211068397098, +1.7555277886605372, +1.6767773194326927, +1.8384883556587237, +1.3998768024862107, +1.7162812932320772, +1.6129803638231384, +1.6329512456283131, +1.2040722796692886, +1.0720844825587257, +1.2020471175188616, +1.0119715168712569, +1.9923491171066718, +1.4334027791743797, +1.8632978569969207, +1.8231675374203968, +1.7130113212135505
483
484atad = getFFTI(getFFTF(data))
485atad
486+1.5784755977587677, +1.2772926303969974, +1.7153502186992338, +1.7577229890416892, +1.9087868317926966, +1.5457881501427551, +1.5204493039241749, +1.5999339564705404, +1.0878415959556071, +1.5836013001439837, +1.2419548604824895, +1.1234361520304037, +1.0627891718093490, +1.3514077608142934, +1.6180942234425149, +1.1246523820150194, +1.1185442122372731, +1.4492977582366726, +1.9150211068397094, +1.7555277886605372, +1.6767773194326925, +1.8384883556587233, +1.3998768024862103, +1.7162812932320768, +1.6129803638231381, +1.6329512456283128, +1.2040722796692886, +1.0720844825587252, +1.2020471175188614, +1.0119715168712564, +1.9923491171066714, +1.4334027791743791, +1.8632978569969210, +1.8231675374203973, +1.7130113212135507, -0.33306690738754696E-15, +0.11102230246251565E-15, -0.55511151231257827E-15, +0.33306690738754696E-15, -0.44408920985006262E-15, +0.44408920985006262E-15, -0.33306690738754696E-15, +0.55511151231257827E-15, -0.11102230246251565E-15, +0.33306690738754696E-15, +0.0000000000000000, +0.77715611723760958E-15, +0.22204460492503131E-15, +0.22204460492503131E-15, -0.33306690738754696E-15, +0.44408920985006262E-15, +0.11102230246251565E-15, +0.22204460492503131E-15, +0.0000000000000000, +0.55511151231257827E-15, +0.11102230246251565E-15, +0.0000000000000000, +0.22204460492503131E-15, +0.44408920985006262E-15, +0.33306690738754696E-15, +0.22204460492503131E-15, +0.33306690738754696E-15, +0.66613381477509392E-15, +0.88817841970012523E-15
487reltol = sqrt(epsilon(1._TKC))
488reltol
489+0.14901161193847656E-7
490isClose(data, atad(1:size(data)), reltol = reltol)
491T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
492call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
493
494lenData = getUnifRand(5, 100)
495lenData
496+36
497data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)
498data
499+1.83925059182281001742197583143803373, +1.78949458232021128671646551201182262, +1.80996081510317763753086501445331134, +1.88747865491287893722983439032994619, +1.86562176010286968048102434585854662, +1.19990916682637937095693399646343639, +1.45821922692500801173546147893857036, +1.54450304492809402271423219961732438, +1.67855936942000188750776204744598479, +1.29120589969171402292702722626916079, +1.29945459560781598805079437313754657, +1.78669752875009175429769703291785889, +1.13624410837246299646002615811931130, +1.73132359801938821191412901912688994, +1.91724680288478949629567707295200926, +1.74446499218321229063098602236362244, +1.68306420427567551711926592982326126, +1.70263312621490319662661084072611466, +1.35354250076237266294418229809900129, +1.95525310877625396025906420200699099, +1.33885338925023733430297633666159865, +1.58848764713639700647503293066187025, +1.05224657644644818991615229816118901, +1.61786971857538203920047702805031413, +1.70454617289802688712392349732279847, +1.51747148802680023490430612906959542, +1.59561122505072037554521140467444624, +1.74697167025037654827390672733058442, +1.46429944818782889841885615790140611, +1.70871609533215359201716483414238310, +1.91310536973546793093391215548356455, +1.64064433030584808594925499875366057, +1.27948902736306829720609730373886632, +1.61037870713984413907831997436881462, +1.27485043367090630159020749324191268, +1.79622128147512010470286329866352297
500
501atad = getFFTI(getFFTF(data))
502atad
503+1.83925059182281001742197583143803392, +1.78949458232021128671646551201182243, +1.80996081510317763753086501445331095, +1.88747865491287893722983439032994619, +1.86562176010286968048102434585854662, +1.19990916682637937095693399646343639, +1.45821922692500801173546147893857074, +1.54450304492809402271423219961732438, +1.67855936942000188750776204744598498, +1.29120589969171402292702722626916098, +1.29945459560781598805079437313754657, +1.78669752875009175429769703291785889, +1.13624410837246299646002615811931111, +1.73132359801938821191412901912688994, +1.91724680288478949629567707295200964, +1.74446499218321229063098602236362244, +1.68306420427567551711926592982326126, +1.70263312621490319662661084072611466, +1.35354250076237266294418229809900129, +1.95525310877625396025906420200699099, +1.33885338925023733430297633666159865, +1.58848764713639700647503293066187063, +1.05224657644644818991615229816118881, +1.61786971857538203920047702805031413, +1.70454617289802688712392349732279847, +1.51747148802680023490430612906959542, +1.59561122505072037554521140467444663, +1.74697167025037654827390672733058462, +1.46429944818782889841885615790140592, +1.70871609533215359201716483414238349, +1.91310536973546793093391215548356455, +1.64064433030584808594925499875366096, +1.27948902736306829720609730373886651, +1.61037870713984413907831997436881443, +1.27485043367090630159020749324191306, +1.79622128147512010470286329866352317, -0.288889491658085377958396691387739098E-33, +0.00000000000000000000000000000000000, -0.481482486096808963263994485646231830E-33, -0.962964972193617926527988971292463659E-34, +0.962964972193617926527988971292463659E-34, -0.192592994438723585305597794258492732E-33, -0.288889491658085377958396691387739098E-33, -0.962964972193617926527988971292463659E-34, -0.192592994438723585305597794258492732E-33, +0.00000000000000000000000000000000000, -0.385185988877447170611195588516985464E-33, +0.00000000000000000000000000000000000, +0.385185988877447170611195588516985464E-33, +0.00000000000000000000000000000000000, +0.00000000000000000000000000000000000, +0.481482486096808963263994485646231830E-33, -0.962964972193617926527988971292463659E-34, -0.385185988877447170611195588516985464E-33, +0.192592994438723585305597794258492732E-33, -0.288889491658085377958396691387739098E-33, +0.962964972193617926527988971292463659E-34, +0.00000000000000000000000000000000000, -0.674075480535532548569592279904724561E-33, +0.00000000000000000000000000000000000, +0.192592994438723585305597794258492732E-33, -0.481482486096808963263994485646231830E-33, +0.00000000000000000000000000000000000, -0.385185988877447170611195588516985464E-33
504reltol = sqrt(epsilon(1._TKC))
505reltol
506+0.138777878078144567552953958511352539E-16
507isClose(data, atad(1:size(data)), reltol = reltol)
508T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
509call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
510
511
Test:
test_pm_fftnr


Final Remarks


If you believe this algorithm or its documentation can be improved, we appreciate your contribution and help to edit this page's documentation and source file on GitHub.
For details on the naming abbreviations, see this page.
For details on the naming conventions, see this page.
This software is distributed under the MIT license with additional terms outlined below.

  1. If you use any parts or concepts from this library to any extent, you must acknowledge the usage by citing the relevant publications of the ParaMonte library.
  2. If you regenerate any parts/ideas from this library in a programming environment other than those currently supported by this ParaMonte library, you must also ask the end users to cite this original ParaMonte library.
Author:
Fatemeh Bagheri, Tuesday 11:34 PM, August 10, 2021, Dallas, TX

Definition at line 250 of file pm_fftnr.F90.


The documentation for this interface was generated from the following file: